INTERFACE_TOMAWAC::interface Interface Reference

List of all members.

Public Member Functions

  • subroutine ANACOS (UC, VC, X, Y, NPOIN2)
  • subroutine ANAMAR (UC, VC, ZM, ZM1, ZM2, DZHDT, X, Y, NPOIN2, AT, DDC, LT)
  • subroutine ANAVEN (UV, VV, X, Y, NPOIN2, AT, DDC, VX_CTE, VY_CTE)
  • subroutine ANGLES (XLAMD, DTPLUS, DTMOIN)
  • subroutine BORNES (B, N, A, XM, X0, X1)
  • subroutine CONDIW (AT, LT, TC1, TC2, TV1, TV2, TM1, TM2, NVHMA, NVCOU, NVWIN, PART, U_TEL, V_TEL, H_TEL)
  • subroutine CONW4D (CX, CY, CT, CF, U, V, XK, CG, COSF, TGF, DEPTH, DZHDT, DZX, DZY, DUX, DUY, DVX, DVY, FREQ, COSTET, SINTET, NPOIN2, NPLAN, JF, NF, PROINF, SPHE, MAREE, TRA01)
  • subroutine CONWAC (CX, CY, CT, XK, CG, COSF, TGF, DEPTH, DZX, DZY, FREQ, COSTET, SINTET, NPOIN2, NPLAN, JF, NF, PROINF, SPHE, PROMIN, TRA01)
  • subroutine CORMAR (AT, LT, TC1, TC2, TV1, TV2, TM1, TM2, NVHMA, NVCOU, PART, U_TEL, V_TEL, H_TEL)
  • DOUBLE PRECISION COUPLE (XK1, YK1, XK2, YK2, XK3, YK3, XK4, YK4, GRAVIT, PI)
  • subroutine COUUTI (X, Y, NPOIN, NCOU, BINCOU, NBOR, NPTFR, AT, DDC, TC1, TC2, UC1, VC1, UC2, VC2)
  • subroutine CQUEUE (NF, RAISF, TAILF, JFRE, JBIS, COEF1)
  • DOUBLE PRECISION DELFRA (SS, DEUPI)
  • subroutine DIFFRAC (CX, CY, CT, XK, CG, DEPTH, DZX, DZY, FREQ, COSTET, SINTET, NPOIN2, NPLAN, IFF, NF, PROINF, SPHE, A, DFREQ, F, CCG, DIV, DELTA, DDX, DDY, EPS, NBOR, NPTFR, XKONPT, RK, RX, RY, RXX, RYY, NEIGB, NB_CLOSE, DIFFRA, MAXNSP, FLTDIF, OPTDER)
  • subroutine DUMP2D (LT, XF1, NP1)
  • subroutine ECRETE (F, DEPTH, NPOIN2, NPLAN, NF, PROMIN)
  • subroutine ECRSPE (F, TETA, NPLAN, FREQ, NF, NK, NPOIN2, AT, AUXIL, NOLEO, NLEO, NSCO, BINSCO, DEBRES, TITCAS, DATE, TIME, KNOLG, MESH, NSPE, TISPEF)
  • subroutine F1F1F1 (F1SF, NF1, IQ_OM1)
  • subroutine FILT_SA
  • DOUBLE PRECISION FONCRO (X, B, N, A, XM)
  • subroutine FPREAD (FREAD, F, FREQ, DFREQ, NF, NPLAN, NPOIN2, EXPO, TAILF, DENOM, E)
  • subroutine FREM01 (FM01, F, FREQ, DFREQ, TAILF, NF, NPLAN, NPOIN2, AUX1, AUX2)
  • subroutine FREM02 (FM02, F, FREQ, DFREQ, TAILF, NF, NPLAN, NPOIN2, AUX1, AUX2)
  • subroutine FREMOY (FMOY, F, FREQ, DFREQ, TAILF, NF, NPLAN, NPOIN2, AUX1, AUX2)
  • subroutine FREPIC (FPIC, F, FREQ, NF, NPLAN, NPOIN2, EMAX, E)
  • subroutine FRMSET (X, Y, NEIGB, NB_CLOSE, NPOIN2, MAXNSP, NRD, NELEM2, IKLE, RK, RX, RY, RXX, RYY)
  • subroutine FSPRD1 (FRA, DIREC, NPLAN, SPRED1, TETA1, SPRED2, TETA2, XLAMDA)
  • subroutine FSPRD2 (FRA, DIREC, NPLAN, SPRED1, TETA1, SPRED2, TETA2, XLAMDA)
  • subroutine FSPRD3 (FRA, DIREC, NPLAN, SPRED1, TETA1, SPRED2, TETA2, XLAMDA)
  • DOUBLE PRECISION GAMMLN (XX, DEUPI)
  • subroutine GAULEG (W_LEG, X_LEG, NPOIN)
  • subroutine IMPR (LISPRD, LT, AT, ISITS, ICOD)
  • subroutine INIPHY (XK, CG, B, DEPTH, FREQ, COSPHI, NPOIN2, NF, PROINF, SPHE)
  • subroutine INITAB (IBOR1, IFABOR1, NELEM2_DIM, PART)
  • subroutine INTANG (LAVANT, LAPRES, IPLAN, NPLAN, DELTAD)
  • DOUBLE PRECISION KERBOU (XK1, XK2, FREQ1, FREQ2, DEPTH, TETA1, TETA2)
  • subroutine KMOYEN (XKMOY, XK, F, FREQ, DFREQ, TAILF, NF, NPLAN, NPOIN2, AUX1, AUX2, AUX3)
  • subroutine LECDOI (F1, NAME1FR, NAME1GB, MODE1, F2, NAME2FR, NAME2GB, MODE2, F3, NAME3FR, NAME3GB, MODE3, X, Y, NPOIN2, NDON, BINDON, NBOR, NPTFR, AT, DDC, TV1, TV2, F11, F12, F21, F22, F31, F32, INDIC, CHDON, NVAR, TEXTE, TROUVE, UNITIME, PHASTIME)
  • subroutine LECDON (F1, NAME1FR, NAME1GB, MODE1, F2, NAME2FR, NAME2GB, MODE2, F3, NAME3FR, NAME3GB, MODE3, X, Y, NPOIN2, NDON, BINDON, NBOR, NPTFR, NPTT, INDIC, CHDON, TEXTE, TROUVE)
  • subroutine LECDON_TOMAWAC (FILE_DESC, PATH, NCAR, CODE)
  • subroutine LECSUI (F, NPLAN, NF, TETA, FREQ, NELEM2, NPOIN2, AT, UC, VC, UC1, VC1, UC2, VC2, UV, VV, UV1, VV1, UV2, VV2, VENT, TV1, TV2, COURAN, NPRE, BINPRE, DEPTH, TC1, TC2, ZM1, ZM2, DZHDT, TM1, TM2, MAREE, TRA01)
  • subroutine LIMITE (F, DEPTH, FREQ, NPOIN2, NPLAN, NF)
  • subroutine LIMWAC (F, FBOR, LIFBOR, NPTFR, NPLAN, NF, TETA, FREQ, NPOIN2, NBOR, AT, LT, DDC, LIMSPE, FPMAXL, FETCHL, SIGMAL, SIGMBL, GAMMAL, FPICL, HM0L, APHILL, TETA1L, SPRE1L, TETA2L, SPRE2L, XLAMDL, X, Y, KENT, KSORT, NFO1, NBI1, BINBI1, UV, VV, SPEULI, VENT, VENSTA, GRAVIT, DEUPI, PRIVE, NPRIV, SPEC, FRA, DEPTH, FRABL, BOUNDARY_COLOUR)
  • subroutine MARUTI (X, Y, NPOIN, NMAR, BINMAR, NBOR, NPTFR, AT, DDC, TV1, TV2, Z1, Z2)
  • subroutine MPOINT (U, V, W, DT, X, Y, TETA, IKLE2, IFABOR, ETAS, XPLOT, YPLOT, ZPLOT, DX, DY, DZ, SHP, SHZ, ELT, ETA, NSP, NPLOT, NPOIN2, NELEM2, NPLAN, IFF, SURDET, SENS, ISO)
  • subroutine NOMVAR_TOMAWAC (TEXTE, TEXTPR, MNEMO, MAXVAR)
  • subroutine NOUDON (F1, NAME1FR, NAME1GB, MODE1, F2, NAME2FR, NAME2GB, MODE2, F3, NAME3FR, NAME3GB, MODE3, X, Y, NPOIN, NDON, BINDON, NBOR, NPTFR, AT, DDC, TV1, TV2, F11, F12, F21, F22, F31, F32, INDIC, CHDON, NVAR, TEXTE, TROUVE, UNITIME, PHASTIME)
  • subroutine P_READ2 (BUFFER, NBYTES, SOURCE, TYPE)
  • subroutine P_WRIT2 (BUFFER, NBYTES, DEST, TYPE)
  • subroutine PREDIF (CX, CY, CT, DT, X, Y, TETA, COSTET, SINTET, FREQ, IKLE2, IFABOR, ETAP1, TRA01, SHP, SHZ, ELT, ETA, DEPTH, DZX, DZY, XK, CG, ITR01, NPOIN3, NPOIN2, NELEM2, NPLAN, NF, SURDET, COURAN, SPHE, PROINF, A, DFREQ, F, CCG, DIV, DELTA, DDX, DDY, EPS, NBOR, NPTFR, XKONPT, RK, RX, RY, RXX, RYY, NEIGB, NB_CLOSE, DIFFRA, MAXNSP, FLTDIF, MESH3D, MESH, IELM3, TB, ISUB, SIKLE2)
  • subroutine PRELEO_MPI (XLEO, YLEO, NLEO, X, Y, IKLE, SURDET, NPOIN2, NELEM2, NOLEO, ISLEO)
  • subroutine PRELEO (XLEO, YLEO, NLEO, X, Y, NPOIN2, NOLEO)
  • subroutine PRENL1 (IANGNL, COEFNL, NPLAN, NF, RAISF, XLAMD)
  • subroutine PRENL2 (IANGNL, COEFNL, NPLAN, NF, RAISF, XLAMD, XMU)
  • subroutine PRENL3 (NF, NT, RAISF, TAILF, FREQ, TB_SCA, LBUF, DIMBUF, F_POIN, F_COEF, T_POIN, F_PROJ, IQ_OM1, NQ_TE1, NQ_OM2, NF1, NT1, K_IF1, K_IF2, K_IF3, TB_V14, TB_V24, TB_V34, K_1P, K_1M, K_1P2P, K_1P3M, K_1P2M, K_1P3P, K_1M2P, K_1M3M, K_1M2M, K_1M3P, TB_TPM, TB_TMP, TB_FAC, SEUIL1, SEUIL2, ELIM, NCONF, NCONFM, IDCONF)
  • subroutine PREPRO (CX, CY, CT, CF, DT, X, Y, TETA, COSTET, SINTET, FREQ, IKLE2, IFABOR, ETAP1, TRA01, SHP, SHZ, SHF, ELT, ETA, FRE, DEPTH, DZHDT, DZX, DZY, U, V, DUX, DUY, DVX, DVY, XK, CG, COSF, TGF, ITR01, NPOIN3, NPOIN2, NELEM2, NPLAN, NF, SURDET, COURAN, SPHE, PROINF, PROMIN, MESH, MESH3D, SIKLE2, TB, IELM3, DIFFRA, MAREE, ISUB)
  • subroutine PREQT2 (TETA, NPLAN, BDISPB, BDSSPB, NBD, INDI)
  • subroutine PROPA (F, B, SHP, SHZ, SHF, ELT, ETA, FRE, IKLE_EXT, NPOIN3, NPOIN2, NPLAN, NF, COURAN, TRA01, TRA02, ITR01, T3_01, T3_02, ISUB, MESH3D)
  • DOUBLE PRECISION QBBJ78 (B, IQBBJ)
  • subroutine QBREK1 (TSTOT, TSDER, F, FCAR, VARIAN, DEPTH, ALFABJ, GAMBJ1, GAMBJ2, IQBBJ, IHMBJ, NF, NPLAN, NPOIN2, BETA)
  • subroutine QBREK2 (TSTOT, TSDER, F, FCAR, VARIAN, DEPTH, BORETG, GAMATG, IWHTG, NF, NPLAN, NPOIN2, BETA)
  • subroutine QBREK3 (TSTOT, TSDER, F, FCAR, VARIAN, DEPTH, ALFARO, GAMARO, GAM2RO, IEXPRO, IDISRO, NF, NPLAN, NPOIN2, BETA)
  • subroutine QBREK4 (TSTOT, TSDER, F, FCAR, VARIAN, DEPTH, BETAIH, EM2SIH, GRAVIT, NF, NPLAN, NPOIN2, BETA)
  • subroutine QDSCUR (TSTOT, TSDER, F, CF, XK, FREQ, USOLD, USNEW, DEPTH, PROINF, CDSCUR, CMOUT4, NF, NPLAN, NPOIN2, CIMPLI, F_INT, BETOTO, BETOTN)
  • subroutine QFROT1 (TSTOT, TSDER, F, XK, DEPTH, CFROT1, GRAVIT, NF, NPLAN, NPOIN2, BETA)
  • DOUBLE PRECISION QGAUSS (B, N, A, XM)
  • subroutine QMOUT1 (TSTOT, TSDER, F, XK, ENRJ, FREQ, FMOY, XKMOY, PROINF, CMOUT1, CMOUT2, NF, NPLAN, NPOIN2, TAUX1, BETA)
  • subroutine QMOUT2 (TSTOT, TSDER, F, XK, ENRJ, FREQ, FMOY, XKMOY, USOLD, USNEW, DEPTH, PROINF, CMOUT3, CMOUT4, CMOUT5, CMOUT6, NF, NPLAN, NPOIN2, CIMPLI, TAUX1, F_INT, BETOTO, BETOTN)
  • subroutine QNLIN1 (TSTOT, TSDER, IANGNL, COEFNL, NF, NPLAN, F1, RAISF, TAILF, PROINF, NPOIN2, F, DEPTH, XKMOY, TAUX1, TAUX2, TAUX3, TAUX4, TAUX5, DFINI)
  • subroutine QNLIN2 (TSTOT, TSDER, IANGNL, COEFNL, NF, NPLAN, F1, RAISF, TAILF, PROINF, NPOIN2, F, DEPTH, XKMOY, TAUX1, DFINI, XCOEF)
  • subroutine QNLIN3 (TSTOT, TSDER, F, NB_NOD, FREQ, TETA, NT, NF, RAISF, TAILF, SEUIL, FSEUIL, LBUF, DIMBUF, F_POIN, F_COEF, F_PROJ, T_POIN, TB_SCA, NQ_TE1, NQ_OM2, NF1, NT1, DFREQ, K_IF1, K_IF2, K_IF3, TB_V14, TB_V24, TB_V34, K_1P, K_1M, K_1P2P, K_1P3M, K_1P2M, K_1P3P, K_1M2P, K_1M3M, K_1M2M, K_1M3P, TB_TPM, TB_TMP, TB_FAC, NCONF, NCONFM, IDCONF)
  • subroutine QTRIA1 (F, XK, FREQ, DEPTH, RAISF, ALFLTA, RFMLTA, NF, NPLAN, NPOIN2, TSTOT, TSDER, FTOT, FMOY)
  • subroutine QTRIA2 (F, XK, FREQ, DFREQ, DEPTH, TETA, SINTET, COSTET, KSPB, BDISPB, BDSSPB, RAISF, NF, NPLAN, NPOIN2, NBD, INDI, TSTOT, TSDER)
  • subroutine QVEG1 (TSTOT, TSDER, F, VARIAN, DEPTH, FMOY, XKMOY, NF, NPLAN, NPOIN2, BETA)
  • subroutine QWIND1 (TSTOT, TSDER, F, XK, FREQ, USOLD, USNEW, TWOLD, TWNEW, Z0OLD, Z0NEW, TETA, ROAIR, ROEAU, BETAM, XKAPPA, DECAL, GRAVIT, NF, NPLAN, NPOIN2, CIMPLI, TOLD, TNEW, CPHAS, USN, USO, OMNEW, OMOLD, BETAN, BETAO)
  • subroutine QWIND2 (TSTOT, TSDER, F, XK, FREQ, USOLD, USNEW, TWOLD, TWNEW, TETA, ROAIR, ROEAU, NF, NPLAN, NPOIN2, CIMPLI, USN, USO)
  • subroutine QWIND3 (TSTOT, TSDER, F, XK, FREQ, USOLD, USNEW, TWOLD, TWNEW, TETA, GRAVIT, NF, NPLAN, NPOIN2, CIMPLI, COEFWD, COEFWE, COEFWF, COEFWH, BETAN, BETAO, DIRN, DIRO)
  • subroutine QWINDL (TSTOT, FREQ, USOLD, USNEW, TWOLD, TWNEW, TETA, NF, NPLAN, NPOIN2, CIMPLI, USN, USO, FPMO, FPMN)
  • subroutine RADIAT (FX, FY, SXX, SXY, SYY, XK1, FS, CG1, DEPTH1, CGSUC1, DSXXDX, DSXYDX, DSXYDY, DSYYDY)
  • subroutine RPI_INTR (NEIGB, NB_CLOSE, RK, RX, RY, RXX, RYY, NPOIN2, I, MAXNSP, FFD, FIRDIV1, FIRDIV2, SECDIV1, SECDIV2, SECDIV3, FRSTDIV, SCNDDIV)
  • subroutine RPI_INVR (X, Y, NEIGB, NB_CLOSE, RK_D, RX_D, RY_D, RXX_D, RYY_D, NPOIN2, I, QUO, AC, MAXNSP, MINDIST)
  • subroutine SEMIMP (F, CF, XK, FREQ, DFREQ, DEPTH, VENTX, VENTY, X, Y, NVEB, NVEF, NBOR, NPTFR, DDC, TV1, TV2, U1, V1, U2, V2, TETA, SINTET, COSTET, INDIC, TAILF, RAISF, GRAVIT, CFROT1, CMOUT1, CMOUT2, CMOUT3, CMOUT4, CMOUT5, CMOUT6, TPROP, DTSI, ROAIR, ROEAU, XKAPPA, BETAM, DECAL, CDRAG, ALPHA, ZVENT, NF, NPLAN, NPOIN2, IANGNL, COEFNL, F1, NSITS, SMOUT, SFROT, SVENT, LVENT, STRIF, VENT, VENSTA, VX_CTE, VY_CTE, SBREK, ALFABJ, GAMBJ1, GAMBJ2, IQBBJ, IHMBJ, IFRBJ, BORETG, GAMATG, IWHTG, IFRTG, ALFARO, GAMARO, GAM2RO, IDISRO, IEXPRO, IFRRO, BETAIH, EM2SIH, IFRIH, COEFHS, XDTBRK, NDTBRK, STRIA, ALFLTA, RFMLTA, KSPB, BDISPB, BDSSPB, PROINF, DF_LIM, LIMIT, CIMPLI, COEFWD, COEFWE, COEFWF, COEFWH, NOMVEB, NOMVEF, BINVEN, NBD, QINDI, TAUWAV, USOLD, TWOLD, Z0OLD, TSTOT, TSDER, TOLD, TNEW, VARIAN, FMOY, XKMOY, USNEW, Z0NEW, TWNEW, TAUX1, TAUX2, TAUX3, TAUX4, TAUX5, TAUX6, TAUX7, BETA, NQ_TE1, NQ_OM2, NF1, NF2, NT1, NCONF, NCONFM, SEUIL, LBUF, DIMBUF, F_POIN, T_POIN, F_COEF, F_PROJ, TB_SCA, K_IF1, K_1P, K_1M, K_IF2, K_IF3, K_1P2P, K_1P2M, K_1P3P, K_1P3M, K_1M2P, K_1M2M, K_1M3P, K_1M3M, IDCONF, TB_V14, TB_V24, TB_V34, TB_TPM, TB_TMP, TB_FAC, MDIA, IANMDI, COEMDI, NVWIN, DIAGHF, VEGETATION, SDSCU, CDSCUR)
  • subroutine SOR3D (F, NPLAN, NF, TETA, FREQ, NELEM2, NPOIN2, AT, U, V, UV, VV, DEPTH, VENT, COURAN, MAREE, TITRE, NR3D, BINR3D, TRA01, MESH3D)
  • subroutine SPEINI (F, SPEC, FRA, UV, VV, FREQ, TETA, GRAVIT, FREMAX, FETCH, SIGMAA, SIGMAB, GAMMA, FPIC, HM0, ALPHIL, TETA1, SPRED1, TETA2, SPRED2, XLAMDA, NPOIN2, NPLAN, NF, INISPE, E2FMIN, DEPTH, FRABI)
  • subroutine SPEJON (SPEC, FREQ, NF, AL, FP, GAMMA, SIGMAA, SIGMAB, DEUPI, GRAVIT, E2FMIN, FPMIN)
  • subroutine SPETMA (SPEC, FREQ, NF, AL, FP, GAMMA, SIGMAA, SIGMAB, DEUPI, GRAVIT, E2FMIN, FPMIN, DEPTH)
  • subroutine SPREAD (DIRSPR, F, COSTET, SINTET, NPLAN, FREQ, DFREQ, NF, NPOIN2, TAILF, COSMOY, SINMOY, VARIAN, TAUXC, TAUXS, TAUXE)
  • subroutine RE_INITIALISE_CHARS (NSEND, NLOSTCHAR, NLOSTAGAIN, NARRV)
  • subroutine PREP_LOST_AGAIN (NOMB, NSEND, NLOSTAGAIN, NARRV)
  • subroutine PREP_SENDBACK (NOMB, NCHARA)
  • subroutine INTERP_RECVCHAR_41 (VAL, N, IKLE, ELT, ETA, SHP, SHZ, NELEM, NPOIN2, NPLAN, NRANGE)
  • subroutine INTERP_RECVCHAR_41_MOD (VAL, IKLE, ELT, ETA, SHP1, SHP2, SHP3, SHZ, NELEM, NPOIN2, NPLAN, NRANGE)
  • subroutine INTERP_RECVCHAR_11 (VAL, N, IKLE, ELT, SHP, NELEM, NPOIN, NRANGE, IELM)
  • subroutine INTRODUCE_RECVCHAR (VAL, N, NPOIN, NOMB, NARRV)
  • subroutine INTRODUCE_RECVCHAR_MOD (VAL, NPOIN, NARRV)
  • subroutine INVERT (RN, N, NP)
  • subroutine PRINT_HEAPCHAR (MESSAGE, NOMB, NCHARA)
  • subroutine PRINT_SENDCHAR (MESSAGE, NOMB, NSEND)
  • subroutine PRINT_RECVCHAR (MESSAGE, NOMB, NARRV)
  • subroutine SCHAR41 (U, V, W, DT, NRK, X, Y, ZSTAR, Z, IKLE2, IBOR, XPLOT, YPLOT, ZPLOT, DX, DY, DZ, SHP, SHZ, ELT, ETA, NSP, NPLOT, NPOIN2, NELEM2, NPLAN, SURDET, SENS, TEST, IFAPAR, NCHDIM, NCHARA)
  • subroutine ADD_CHAR41 (U, V, W, DT, NRK, X, Y, ZSTAR, Z, IKLE2, IBOR, XPLOT, YPLOT, ZPLOT, DX, DY, DZ, SHP, SHZ, ELT, ETA, NSP, ISPDONE, NPLOT, NPOIN2, NELEM2, NPLAN, SURDET, SENS, TEST, IFAPAR, NOMB, NARRV)
  • subroutine ADD_CHAR41_MOD (U, V, W, DT, NRK, X, Y, ZSTAR, Z, IKLE2, IBOR, XPLOT, YPLOT, ZPLOT, DX, DY, DZ, SHP1, SHP2, SHP3, SHZ, ELT, ETA, NSP, ISPDONE, NPLOT, NPOIN2, NELEM2, NPLAN, SURDET, SENS, TEST, IFAPAR, NOMB, NARRV)
  • subroutine SCHAR11 (U, V, DT, NRK, X, Y, IKLE, IFABOR, XPLOT, YPLOT, DX, DY, SHP, ELT, NSP, NPLOT, NPOIN, NELEM, NELMAX, SURDET, SENS, TEST, IFAPAR, MESH, NCHDIM, NCHARA)
  • subroutine ADD_CHAR11 (U, V, DT, NRK, X, Y, IKLE, IFABOR, XPLOT, YPLOT, DX, DY, SHP, ELT, NSP, ISPDONE, NPLOT, NPOIN, NELEM, NELMAX, SURDET, SENS, TEST, IFAPAR, NOMB, NARRV)
  • subroutine UPDATE_TEST (TEST, MESH, SHP1, SHP2, SHP3, NPOINT)
  • subroutine SEND_RECV_TOMAWAC (U, UTILD, UCONV, VCONV, WCONV, DT, NRK, X, Y, ZSTAR, Z, IKLE, IFABOR, XCONV, YCONV, ZCONV, DX, DY, DZ, SHP1, SHP2, SHP3, SHZ, ELT, ETA, ITRAV1, ITRAV2, NARRV, NPOIN2, NELEM, NPLAN, SURDET, TEST, NPOIN, NCHDIM, NCHARA, NOMB, MESH, LAST_NOMB)
  • subroutine SCARACT (U, UTILD, UCONV, VCONV, WCONV, X, Y, ZSTAR, XCONV, YCONV, ZCONV, DX, DY, DZ, Z, SHP, SHZ, SURDET, DT, IKLE, IFABOR, ELT, ETA, ITRAV1, ITRAV2, IELM, IELMU, NELEM, NELMAX, NOMB, NPOIN, NPOIN2, NDP, NPLAN, LV, MSK, MASKEL, MESH, FAC, TEST, STEST, INITLOC)
  • subroutine STRESS (TAUWAV, TSTOT, F, USNEW, TWNEW, Z0NEW, FREQ, DFREQ, TETA, SINTET, COSTET, ROAIR, ROEAU, XKAPPA, BETAM, DECAL, GRAVIT, NPOIN2, NPLAN, NF, XTAUW, YTAUW, TAUHF)
  • subroutine TAUTOT (TAUT, UVENT, TAUW, CDRAG, ALPHA, XKAPPA, ZVENT, SEUIL, GRAVIT, ITR, ITRMIN, ITRMAX)
  • subroutine TETMOY (TETAM, F, COSTET, SINTET, NPLAN, FREQ, DFREQ, NF, NPOIN2, TAILF, COSMOY, SINMOY, TAUXC, TAUXS)
  • subroutine TOTNRJ (VARIAN, F, FREQ, DFREQ, TAILF, NF, NPLAN, NPOIN2)
  • subroutine TRANSF (FA, FR, FREQ, DFREQ, COSTET, SINTET, UC, VC, XK, KNEW, NEWF, NEWF1, TAUX1, TAUX2, NPOIN2, NPLAN, NF, RAISF, LT, GRADEB, GRAPRD)
  • subroutine USTAR1 (USTAR, Z0, TAUWAV, UV, VV, CDRAG, ALPHA, XKAPPA, ZVENT, GRAVIT, NPOIN2)
  • subroutine USTAR2 (USTAR, UV, VV, NPOIN2)
  • subroutine VARTEL (VAR, X, Y, DEPTH, UC, VC, ZREPOS, TRA01, F, NPLAN, NF, NPOIN2)
  • subroutine VENUTI (X, Y, NPOIN, NVEN, BINVEN, NBOR, NPTFR, AT, DDC, TV1, TV2, U1, V1, U2, V2)
  • subroutine VITFON (UWBM, F, XK, DEPTH, DFREQ, NF, NPOIN2, NPLAN, BETA)
  • subroutine WAC (PART, U_TEL, V_TEL, H_TEL, FX_WAC, FY_WAC, UV_WAC, VV_WAC, CODE, T_TEL, DT_TEL, NIT_TEL, PERCOU_WAC, DIRMOY_TEL, HM0_TEL, TPR5_TEL, ORBVEL_TEL)
  • subroutine WNSCOU (CK2, FREQ, DEPTH)
  • subroutine WPOWER (POWER, F, FREQ, DFREQ, CG, TAILF, NF, NPLAN, NPOIN2, ROEAU)

Detailed Description

Definition at line 25 of file interface_tomawac.f.


Member Function/Subroutine Documentation

subroutine INTERFACE_TOMAWAC::interface::ADD_CHAR11 ( DOUBLE PRECISION,dimension(npoin),intent(in)  U,
DOUBLE PRECISION,dimension(npoin),intent(in)  V,
DOUBLE PRECISION,intent(in)  DT,
INTEGER,intent(in)  NRK,
DOUBLE PRECISION,dimension(npoin),intent(in)  X,
DOUBLE PRECISION,dimension(npoin),intent(in)  Y,
INTEGER,dimension(nelmax,3),intent(in)  IKLE,
INTEGER,dimension(nelmax,3),intent(in)  IFABOR,
DOUBLE PRECISION,dimension(nplot),intent(inout)  XPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  YPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DX,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DY,
DOUBLE PRECISION,dimension(3,nplot),intent(inout)  SHP,
INTEGER,dimension(nplot),intent(inout)  ELT,
INTEGER,dimension(nplot),intent(inout)  NSP,
INTEGER,dimension(nplot),intent(inout)  ISPDONE,
INTEGER,intent(in)  NPLOT,
INTEGER,intent(in)  NPOIN,
INTEGER,intent(in)  NELEM,
INTEGER,intent(in)  NELMAX,
DOUBLE PRECISION,dimension(nelem),intent(in)  SURDET,
INTEGER,intent(in)  SENS,
DOUBLE PRECISION,dimension(nplot),intent(inout)  TEST,
INTEGER,dimension(6,*),intent(in)  IFAPAR,
INTEGER,intent(in)  NOMB,
INTEGER,intent(in)  NARRV 
)

Definition at line 1857 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::ADD_CHAR41 ( DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  U,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  V,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  W,
DOUBLE PRECISION,intent(in)  DT,
INTEGER,intent(in)  NRK,
DOUBLE PRECISION,dimension(npoin2),intent(in)  X,
DOUBLE PRECISION,dimension(npoin2),intent(in)  Y,
DOUBLE PRECISION,dimension(nplan),intent(in)  ZSTAR,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  Z,
INTEGER,dimension(nelem2,3),intent(in)  IKLE2,
INTEGER,dimension(nelem2,5,nplan-1),intent(in)  IBOR,
DOUBLE PRECISION,dimension(nplot),intent(inout)  XPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  YPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  ZPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DX,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DY,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DZ,
DOUBLE PRECISION,dimension(3,nplot),intent(inout)  SHP,
DOUBLE PRECISION,dimension(nplot),intent(inout)  SHZ,
INTEGER,dimension(nplot),intent(inout)  ELT,
INTEGER,dimension(nplot),intent(inout)  ETA,
INTEGER,dimension(nplot),intent(inout)  NSP,
INTEGER,dimension(nplot),intent(inout)  ISPDONE,
INTEGER,intent(in)  NPLOT,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NELEM2,
INTEGER,intent(in)  NPLAN,
DOUBLE PRECISION,dimension(nelem2),intent(in)  SURDET,
INTEGER,intent(in)  SENS,
DOUBLE PRECISION,dimension(nplot),intent(inout)  TEST,
INTEGER,dimension(6,*),intent(in)  IFAPAR,
INTEGER,intent(in)  NOMB,
INTEGER,intent(in)  NARRV 
)

Definition at line 1772 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::ADD_CHAR41_MOD ( DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  U,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  V,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  W,
DOUBLE PRECISION,intent(in)  DT,
INTEGER,intent(in)  NRK,
DOUBLE PRECISION,dimension(npoin2),intent(in)  X,
DOUBLE PRECISION,dimension(npoin2),intent(in)  Y,
DOUBLE PRECISION,dimension(nplan+1),intent(in)  ZSTAR,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  Z,
INTEGER,dimension(nelem2,3),intent(in)  IKLE2,
INTEGER,dimension(nelem2,5),intent(in)  IBOR,
DOUBLE PRECISION,dimension(nplot),intent(inout)  XPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  YPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  ZPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DX,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DY,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DZ,
DOUBLE PRECISION,dimension(nplot),intent(inout)  SHP1,
DOUBLE PRECISION,dimension(nplot),intent(inout)  SHP2,
DOUBLE PRECISION,dimension(nplot),intent(inout)  SHP3,
DOUBLE PRECISION,dimension(nplot),intent(inout)  SHZ,
INTEGER,dimension(nplot),intent(inout)  ELT,
INTEGER,dimension(nplot),intent(inout)  ETA,
INTEGER,dimension(nplot),intent(inout)  NSP,
INTEGER,dimension(nplot),intent(inout)  ISPDONE,
INTEGER,intent(in)  NPLOT,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NELEM2,
INTEGER,intent(in)  NPLAN,
DOUBLE PRECISION,dimension(nelem2),intent(in)  SURDET,
INTEGER,intent(in)  SENS,
DOUBLE PRECISION,dimension(nplot),intent(inout)  TEST,
INTEGER,dimension(6,*),intent(in)  IFAPAR,
INTEGER,intent(in)  NOMB,
INTEGER,intent(in)  NARRV 
)

Definition at line 1801 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::ANACOS ( DOUBLE PRECISION,dimension(npoin2)  UC,
DOUBLE PRECISION,dimension(npoin2)  VC,
DOUBLE PRECISION,dimension(npoin2)  X,
DOUBLE PRECISION,dimension(npoin2)  Y,
INTEGER  NPOIN2 
)

Definition at line 26 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::ANAMAR ( DOUBLE PRECISION,dimension(npoin2),intent(inout)  UC,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  VC,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  ZM,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  ZM1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  ZM2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  DZHDT,
DOUBLE PRECISION,dimension(npoin2),intent(in)  X,
DOUBLE PRECISION,dimension(npoin2),intent(in)  Y,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,intent(in)  AT,
DOUBLE PRECISION,intent(in)  DDC,
INTEGER,intent(in)  LT 
)

Definition at line 36 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::ANAVEN ( DOUBLE PRECISION,dimension(npoin2)  UV,
DOUBLE PRECISION,dimension(npoin2)  VV,
DOUBLE PRECISION,dimension (npoin2)  X,
DOUBLE PRECISION,dimension (npoin2)  Y,
INTEGER  NPOIN2,
DOUBLE PRECISION  AT,
DOUBLE PRECISION  DDC,
DOUBLE PRECISION  VX_CTE,
DOUBLE PRECISION  VY_CTE 
)

Definition at line 52 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::ANGLES ( DOUBLE PRECISION  XLAMD,
DOUBLE PRECISION  DTPLUS,
DOUBLE PRECISION  DTMOIN 
)

Definition at line 65 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::BORNES ( DOUBLE PRECISION  B,
INTEGER  N,
DOUBLE PRECISION  A,
DOUBLE PRECISION  XM,
DOUBLE PRECISION  X0,
DOUBLE PRECISION  X1 
)

Definition at line 74 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::CONDIW ( DOUBLE PRECISION,intent(inout)  AT,
INTEGER,intent(in)  LT,
DOUBLE PRECISION,intent(inout)  TC1,
DOUBLE PRECISION,intent(inout)  TC2,
DOUBLE PRECISION,intent(inout)  TV1,
DOUBLE PRECISION,intent(inout)  TV2,
DOUBLE PRECISION,intent(inout)  TM1,
DOUBLE PRECISION,intent(inout)  TM2,
INTEGER,intent(inout)  NVHMA,
INTEGER,intent(inout)  NVCOU,
INTEGER,intent(inout)  NVWIN,
INTEGER,intent(in)  PART,
TYPE(BIEF_OBJ),intent(in)  U_TEL,
TYPE(BIEF_OBJ),intent(in)  V_TEL,
TYPE(BIEF_OBJ),intent(in)  H_TEL 
)

Definition at line 84 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::CONW4D ( DOUBLE PRECISION,dimension(npoin2,nplan,jf),intent(inout)  CX,
DOUBLE PRECISION,dimension(npoin2,nplan,jf),intent(inout)  CY,
DOUBLE PRECISION,dimension(npoin2,nplan,jf),intent(inout)  CT,
DOUBLE PRECISION,dimension(npoin2,nplan,jf),intent(inout)  CF,
DOUBLE PRECISION,dimension(npoin2),intent(in)  U,
DOUBLE PRECISION,dimension(npoin2),intent(in)  V,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  XK,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  CG,
DOUBLE PRECISION,dimension(npoin2),intent(in)  COSF,
DOUBLE PRECISION,dimension(npoin2),intent(in)  TGF,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DEPTH,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DZHDT,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DZX,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DZY,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DUX,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DUY,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DVX,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DVY,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
DOUBLE PRECISION,dimension(nplan),intent(in)  COSTET,
DOUBLE PRECISION,dimension(nplan),intent(in)  SINTET,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  JF,
INTEGER,intent(in)  NF,
LOGICAL,intent(in)  PROINF,
LOGICAL,intent(in)  SPHE,
LOGICAL,intent(in)  MAREE,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  TRA01 
)

Definition at line 99 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::CONWAC ( DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  CX,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  CY,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  CT,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  XK,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  CG,
DOUBLE PRECISION,dimension(npoin2),intent(in)  COSF,
DOUBLE PRECISION,dimension(npoin2),intent(in)  TGF,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DEPTH,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DZX,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DZY,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
DOUBLE PRECISION,dimension(nplan),intent(in)  COSTET,
DOUBLE PRECISION,dimension(nplan),intent(in)  SINTET,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  JF,
INTEGER,intent(in)  NF,
LOGICAL,intent(in)  PROINF,
LOGICAL,intent(in)  SPHE,
DOUBLE PRECISION,intent(in)  PROMIN,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  TRA01 
)

Definition at line 126 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::CORMAR ( DOUBLE PRECISION  AT,
INTEGER  LT,
DOUBLE PRECISION  TC1,
DOUBLE PRECISION  TC2,
DOUBLE PRECISION  TV1,
DOUBLE PRECISION  TV2,
DOUBLE PRECISION  TM1,
DOUBLE PRECISION  TM2,
INTEGER  NVHMA,
INTEGER  NVCOU,
INTEGER,intent(in)  PART,
TYPE(BIEF_OBJ),intent(in)  U_TEL,
TYPE(BIEF_OBJ),intent(in)  V_TEL,
TYPE(BIEF_OBJ),intent(in)  H_TEL 
)

Definition at line 150 of file interface_tomawac.f.

DOUBLE PRECISION INTERFACE_TOMAWAC::interface::COUPLE ( DOUBLE PRECISION  XK1,
DOUBLE PRECISION  YK1,
DOUBLE PRECISION  XK2,
DOUBLE PRECISION  YK2,
DOUBLE PRECISION  XK3,
DOUBLE PRECISION  YK3,
DOUBLE PRECISION  XK4,
DOUBLE PRECISION  YK4,
DOUBLE PRECISION  GRAVIT,
DOUBLE PRECISION  PI 
)

Definition at line 165 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::COUUTI ( DOUBLE PRECISION,dimension(npoin),intent(in)  X,
DOUBLE PRECISION,dimension(npoin),intent(in)  Y,
INTEGER,intent(in)  NPOIN,
INTEGER,intent(in)  NCOU,
CHARACTER(LEN=3),intent(in)  BINCOU,
INTEGER,dimension(nptfr,2),intent(in)  NBOR,
INTEGER,intent(in)  NPTFR,
DOUBLE PRECISION,intent(in)  AT,
DOUBLE PRECISION,intent(in)  DDC,
DOUBLE PRECISION,intent(in)  TC1,
DOUBLE PRECISION,intent(in)  TC2,
DOUBLE PRECISION,dimension(npoin),intent(inout)  UC1,
DOUBLE PRECISION,dimension(npoin),intent(inout)  VC1,
DOUBLE PRECISION,dimension(npoin),intent(inout)  UC2,
DOUBLE PRECISION,dimension(npoin),intent(inout)  VC2 
)

Definition at line 177 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::CQUEUE ( INTEGER  NF,
DOUBLE PRECISION  RAISF,
DOUBLE PRECISION  TAILF,
INTEGER  JFRE,
INTEGER  JBIS,
DOUBLE PRECISION  COEF1 
)

Definition at line 193 of file interface_tomawac.f.

DOUBLE PRECISION INTERFACE_TOMAWAC::interface::DELFRA ( DOUBLE PRECISION  SS,
DOUBLE PRECISION  DEUPI 
)

Definition at line 204 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::DIFFRAC ( DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  CX,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  CY,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  CT,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  XK,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  CG,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DEPTH,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DZX,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DZY,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
DOUBLE PRECISION,dimension(nplan),intent(in)  COSTET,
DOUBLE PRECISION,dimension(nplan),intent(in)  SINTET,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  IFF,
INTEGER,intent(in)  NF,
LOGICAL,intent(in)  PROINF,
LOGICAL,intent(in)  SPHE,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  A,
DOUBLE PRECISION,dimension(nf),intent(in)  DFREQ,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(in)  F,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  CCG,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  DIV,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  DELTA,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  DDX,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  DDY,
DOUBLE PRECISION,intent(in)  EPS,
INTEGER,dimension(nptfr),intent(in)  NBOR,
INTEGER,intent(in)  NPTFR,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  XKONPT,
DOUBLE PRECISION,dimension(maxnsp,npoin2),intent(in)  RK,
DOUBLE PRECISION,dimension(maxnsp,npoin2),intent(in)  RX,
DOUBLE PRECISION,dimension(maxnsp,npoin2),intent(in)  RY,
DOUBLE PRECISION,dimension(maxnsp,npoin2),intent(in)  RXX,
DOUBLE PRECISION,dimension(maxnsp,npoin2),intent(in)  RYY,
INTEGER,dimension(npoin2,maxnsp),intent(in)  NEIGB,
INTEGER,dimension(npoin2),intent(in)  NB_CLOSE,
INTEGER,intent(in)  DIFFRA,
INTEGER,intent(in)  MAXNSP,
LOGICAL,intent(in)  FLTDIF,
INTEGER,intent(in)  OPTDER 
)

Definition at line 213 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::DUMP2D ( INTEGER,intent(in)  LT,
DOUBLE PRECISION,dimension(np1),intent(in)  XF1,
INTEGER,intent(in)  NP1 
)

Definition at line 252 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::ECRETE ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
INTEGER  NPOIN2,
INTEGER  NPLAN,
INTEGER  NF,
DOUBLE PRECISION  PROMIN 
)

Definition at line 262 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::ECRSPE ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(in)  F,
DOUBLE PRECISION,dimension(nplan),intent(in)  TETA,
INTEGER,intent(in)  NPLAN,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
INTEGER,intent(in)  NF,
INTEGER,intent(in)  NK,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,intent(in)  AT,
DOUBLE PRECISION,dimension(nplan,nk),intent(inout)  AUXIL,
INTEGER,dimension(nleo),intent(in)  NOLEO,
INTEGER,intent(in)  NLEO,
INTEGER,intent(in)  NSCO,
CHARACTER(LEN=*),intent(in)  BINSCO,
LOGICAL,intent(in)  DEBRES,
CHARACTER(LEN=72),intent(in)  TITCAS,
INTEGER,dimension(3),intent(in)  DATE,
INTEGER,dimension(3),intent(in)  TIME,
INTEGER,dimension(npoin2),intent(in)  KNOLG,
TYPE(BIEF_MESH),intent(inout)  MESH,
INTEGER,intent(in)  NSPE,
CHARACTER(LEN=144),intent(in)  TISPEF 
)

Definition at line 274 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::F1F1F1 ( DOUBLE PRECISION,dimension(*),intent(inout)  F1SF,
INTEGER,intent(inout)  NF1,
INTEGER,intent(in)  IQ_OM1 
)

Definition at line 300 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::FILT_SA (  ) 

Definition at line 312 of file interface_tomawac.f.

DOUBLE PRECISION INTERFACE_TOMAWAC::interface::FONCRO ( DOUBLE PRECISION  X,
DOUBLE PRECISION  B,
INTEGER  N,
DOUBLE PRECISION  A,
DOUBLE PRECISION  XM 
)

Definition at line 320 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::FPREAD ( DOUBLE PRECISION,dimension(npoin2)  FREAD,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION  EXPO,
DOUBLE PRECISION  TAILF,
DOUBLE PRECISION,dimension(npoin2)  DENOM,
DOUBLE PRECISION,dimension(npoin2)  E 
)

Definition at line 331 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::FREM01 ( DOUBLE PRECISION,dimension(npoin2)  FM01,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
DOUBLE PRECISION  TAILF,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2)  AUX1,
DOUBLE PRECISION,dimension(npoin2)  AUX2 
)

Definition at line 345 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::FREM02 ( DOUBLE PRECISION,dimension(npoin2)  FM02,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
DOUBLE PRECISION  TAILF,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2)  AUX1,
DOUBLE PRECISION,dimension(npoin2)  AUX2 
)

Definition at line 360 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::FREMOY ( DOUBLE PRECISION,dimension(npoin2)  FMOY,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
DOUBLE PRECISION  TAILF,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2)  AUX1,
DOUBLE PRECISION,dimension(npoin2)  AUX2 
)

Definition at line 375 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::FREPIC ( DOUBLE PRECISION,dimension(npoin2)  FPIC,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nf)  FREQ,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2)  EMAX,
DOUBLE PRECISION,dimension(npoin2)  E 
)

Definition at line 390 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::FRMSET ( DOUBLE PRECISION,dimension(npoin2)  X,
DOUBLE PRECISION,dimension(npoin2)  Y,
INTEGER,dimension(npoin2,maxnsp)  NEIGB,
INTEGER,dimension(npoin2)  NB_CLOSE,
INTEGER  NPOIN2,
INTEGER  MAXNSP,
INTEGER  NRD,
INTEGER  NELEM2,
INTEGER,dimension(nelem2,3)  IKLE,
DOUBLE PRECISION,dimension(maxnsp,npoin2)  RK,
DOUBLE PRECISION,dimension(maxnsp,npoin2)  RX,
DOUBLE PRECISION,dimension(maxnsp,npoin2)  RY,
DOUBLE PRECISION,dimension(maxnsp,npoin2)  RXX,
DOUBLE PRECISION,dimension(maxnsp,npoin2)  RYY 
)

Definition at line 403 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::FSPRD1 ( DOUBLE PRECISION,dimension(nplan)  FRA,
DOUBLE PRECISION,dimension(nplan)  DIREC,
INTEGER  NPLAN,
DOUBLE PRECISION  SPRED1,
DOUBLE PRECISION  TETA1,
DOUBLE PRECISION  SPRED2,
DOUBLE PRECISION  TETA2,
DOUBLE PRECISION  XLAMDA 
)

Definition at line 420 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::FSPRD2 ( DOUBLE PRECISION,dimension(nplan)  FRA,
DOUBLE PRECISION,dimension(nplan)  DIREC,
INTEGER  NPLAN,
DOUBLE PRECISION  SPRED1,
DOUBLE PRECISION  TETA1,
DOUBLE PRECISION  SPRED2,
DOUBLE PRECISION  TETA2,
DOUBLE PRECISION  XLAMDA 
)

Definition at line 432 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::FSPRD3 ( DOUBLE PRECISION,dimension(nplan)  FRA,
DOUBLE PRECISION,dimension(nplan)  DIREC,
INTEGER  NPLAN,
DOUBLE PRECISION  SPRED1,
DOUBLE PRECISION  TETA1,
DOUBLE PRECISION  SPRED2,
DOUBLE PRECISION  TETA2,
DOUBLE PRECISION  XLAMDA 
)

Definition at line 444 of file interface_tomawac.f.

DOUBLE PRECISION INTERFACE_TOMAWAC::interface::GAMMLN ( DOUBLE PRECISION  XX,
DOUBLE PRECISION  DEUPI 
)

Definition at line 456 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::GAULEG ( DOUBLE PRECISION,dimension(npoin)  W_LEG,
DOUBLE PRECISION,dimension(npoin)  X_LEG,
INTEGER  NPOIN 
)

Definition at line 466 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::IMPR ( INTEGER  LISPRD,
INTEGER  LT,
DOUBLE PRECISION  AT,
INTEGER  ISITS,
INTEGER  ICOD 
)

Definition at line 477 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::INIPHY ( DOUBLE PRECISION,dimension(npoin2,nf)  XK,
DOUBLE PRECISION,dimension(npoin2,nf)  CG,
DOUBLE PRECISION,dimension(npoin2,nf)  B,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(npoin2)  COSPHI,
INTEGER  NPOIN2,
INTEGER  NF,
LOGICAL  PROINF,
LOGICAL  SPHE 
)

Definition at line 488 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::INITAB ( INTEGER,dimension(nelem2_dim,7),intent(inout)  IBOR1,
INTEGER,dimension(nelem2_dim,3),intent(in)  IFABOR1,
INTEGER,intent(in)  NELEM2_DIM,
INTEGER,intent(in)  PART 
)

Definition at line 502 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::INTANG ( INTEGER  LAVANT,
INTEGER  LAPRES,
INTEGER  IPLAN,
INTEGER  NPLAN,
DOUBLE PRECISION  DELTAD 
)

Definition at line 513 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::INTERP_RECVCHAR_11 ( DOUBLE PRECISION,dimension(npoin),intent(in)  VAL,
INTEGER,intent(in)  N,
INTEGER,dimension(nelem,*),intent(in)  IKLE,
INTEGER,dimension(nrange),intent(in)  ELT,
DOUBLE PRECISION,dimension(3,nrange),intent(in)  SHP,
INTEGER,intent(in)  NELEM,
INTEGER,intent(in)  NPOIN,
INTEGER,intent(in)  NRANGE,
INTEGER,intent(in)  IELM 
)

Definition at line 1668 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::INTERP_RECVCHAR_41 ( DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  VAL,
INTEGER,intent(in)  N,
INTEGER,dimension(nelem,3),intent(in)  IKLE,
INTEGER,dimension(nrange),intent(in)  ELT,
INTEGER,dimension(nrange),intent(in)  ETA,
DOUBLE PRECISION,dimension(3,nrange),intent(in)  SHP,
DOUBLE PRECISION,dimension(nrange),intent(in)  SHZ,
INTEGER,intent(in)  NELEM,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NRANGE 
)

Definition at line 1638 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::INTERP_RECVCHAR_41_MOD ( DOUBLE PRECISION,dimension(npoin2,nplan,2),intent(in)  VAL,
INTEGER,dimension(nelem,3),intent(in)  IKLE,
INTEGER,dimension(nrange),intent(in)  ELT,
INTEGER,dimension(nrange),intent(in)  ETA,
DOUBLE PRECISION,dimension(nrange),intent(in)  SHP1,
DOUBLE PRECISION,dimension(nrange),intent(in)  SHP2,
DOUBLE PRECISION,dimension(nrange),intent(in)  SHP3,
DOUBLE PRECISION,dimension(nrange),intent(in)  SHZ,
INTEGER,intent(in)  NELEM,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NRANGE 
)

Definition at line 1652 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::INTRODUCE_RECVCHAR ( DOUBLE PRECISION,dimension(npoin),intent(inout)  VAL,
INTEGER,intent(in)  N,
INTEGER,intent(in)  NPOIN,
INTEGER,intent(in)  NOMB,
INTEGER,intent(in)  NARRV 
)

Definition at line 1682 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::INTRODUCE_RECVCHAR_MOD ( DOUBLE PRECISION,dimension(npoin),intent(inout)  VAL,
INTEGER,intent(in)  NPOIN,
INTEGER,intent(in)  NARRV 
)

Definition at line 1692 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::INVERT ( DOUBLE PRECISION,dimension(np,np)  RN,
INTEGER  N,
INTEGER  NP 
)

Definition at line 1703 of file interface_tomawac.f.

DOUBLE PRECISION INTERFACE_TOMAWAC::interface::KERBOU ( DOUBLE PRECISION,intent(in)  XK1,
DOUBLE PRECISION,intent(in)  XK2,
DOUBLE PRECISION,intent(in)  FREQ1,
DOUBLE PRECISION,intent(in)  FREQ2,
DOUBLE PRECISION,intent(in)  DEPTH,
DOUBLE PRECISION,intent(in)  TETA1,
DOUBLE PRECISION,intent(in)  TETA2 
)

Definition at line 524 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::KMOYEN ( DOUBLE PRECISION,dimension(npoin2),intent(inout)  XKMOY,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  XK,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(in)  F,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
DOUBLE PRECISION,dimension(nf),intent(in)  DFREQ,
DOUBLE PRECISION,intent(in)  TAILF,
INTEGER,intent(in)  NF,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  AUX1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  AUX2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  AUX3 
)

Definition at line 535 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::LECDOI ( DOUBLE PRECISION,dimension(npoin2),intent(inout)  F1,
CHARACTER(LEN=32),intent(in)  NAME1FR,
CHARACTER(LEN=32),intent(in)  NAME1GB,
INTEGER,intent(in)  MODE1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F2,
CHARACTER(LEN=32),intent(in)  NAME2FR,
CHARACTER(LEN=32),intent(in)  NAME2GB,
INTEGER,intent(in)  MODE2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F3,
CHARACTER(LEN=32),intent(in)  NAME3FR,
CHARACTER(LEN=32),intent(in)  NAME3GB,
INTEGER,intent(in)  MODE3,
DOUBLE PRECISION,dimension(npoin2),intent(in)  X,
DOUBLE PRECISION,dimension(npoin2),intent(in)  Y,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NDON,
CHARACTER(LEN=3),intent(in)  BINDON,
INTEGER,dimension(nptfr,2),intent(in)  NBOR,
INTEGER,intent(in)  NPTFR,
DOUBLE PRECISION,intent(in)  AT,
DOUBLE PRECISION,intent(in)  DDC,
DOUBLE PRECISION,intent(inout)  TV1,
DOUBLE PRECISION,intent(inout)  TV2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F11,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F12,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F21,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F22,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F31,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F32,
INTEGER,intent(in)  INDIC,
CHARACTER(LEN=7),intent(in)  CHDON,
INTEGER,intent(inout)  NVAR,
CHARACTER(LEN=32),dimension(30),intent(inout)  TEXTE,
LOGICAL,dimension(3),intent(inout)  TROUVE,
DOUBLE PRECISION,intent(in)  UNITIME,
DOUBLE PRECISION,intent(in)  PHASTIME 
)

Definition at line 553 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::LECDON ( DOUBLE PRECISION,dimension(npoin2),intent(inout)  F1,
CHARACTER(LEN=32),intent(in)  NAME1FR,
CHARACTER(LEN=32),intent(in)  NAME1GB,
INTEGER,intent(in)  MODE1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F2,
CHARACTER(LEN=32),intent(in)  NAME2FR,
CHARACTER(LEN=32),intent(in)  NAME2GB,
INTEGER,intent(in)  MODE2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F3,
CHARACTER(LEN=32),intent(in)  NAME3FR,
CHARACTER(LEN=32),intent(in)  NAME3GB,
INTEGER,intent(in)  MODE3,
DOUBLE PRECISION,dimension(npoin2),intent(in)  X,
DOUBLE PRECISION,dimension(npoin2),intent(in)  Y,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NDON,
CHARACTER(LEN=3),intent(in)  BINDON,
INTEGER,dimension(nptfr,2),intent(in)  NBOR,
INTEGER,intent(in)  NPTFR,
INTEGER,intent(in)  NPTT,
INTEGER,intent(in)  INDIC,
CHARACTER(LEN=7),intent(in)  CHDON,
CHARACTER(LEN=32),dimension(30),intent(inout)  TEXTE,
LOGICAL,dimension(3),intent(inout)  TROUVE 
)

Definition at line 585 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::LECDON_TOMAWAC ( CHARACTER(LEN=144),dimension(4,nmax),intent(inout)  FILE_DESC,
CHARACTER(LEN=250),intent(in)  PATH,
INTEGER,intent(in)  NCAR,
CHARACTER(LEN=24),intent(in)  CODE 
)

Definition at line 609 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::LECSUI ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  F,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NF,
DOUBLE PRECISION,dimension(nplan+1),intent(inout)  TETA,
DOUBLE PRECISION,dimension(nf),intent(inout)  FREQ,
INTEGER,intent(in)  NELEM2,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,intent(inout)  AT,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  UC,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  VC,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  UC1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  VC1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  UC2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  VC2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  UV,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  VV,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  UV1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  VV1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  UV2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  VV2,
LOGICAL,intent(in)  VENT,
DOUBLE PRECISION,intent(inout)  TV1,
DOUBLE PRECISION,intent(inout)  TV2,
LOGICAL,intent(in)  COURAN,
INTEGER,intent(in)  NPRE,
CHARACTER(LEN=3),intent(in)  BINPRE,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  DEPTH,
DOUBLE PRECISION,intent(inout)  TC1,
DOUBLE PRECISION,intent(inout)  TC2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  ZM1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  ZM2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  DZHDT,
DOUBLE PRECISION,intent(inout)  TM1,
DOUBLE PRECISION,intent(inout)  TM2,
LOGICAL,intent(in)  MAREE,
DOUBLE PRECISION,dimension(npoin2*nplan),intent(inout)  TRA01 
)

Definition at line 623 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::LIMITE ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  F,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DEPTH,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NF 
)

Definition at line 650 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::LIMWAC ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nptfr,nplan,nf)  FBOR,
INTEGER,dimension(nptfr)  LIFBOR,
INTEGER  NPTFR,
INTEGER  NPLAN,
INTEGER  NF,
DOUBLE PRECISION,dimension(nplan)  TETA,
DOUBLE PRECISION,dimension(nf)  FREQ,
INTEGER  NPOIN2,
INTEGER,dimension(nptfr)  NBOR,
DOUBLE PRECISION  AT,
INTEGER  LT,
DOUBLE PRECISION  DDC,
INTEGER  LIMSPE,
DOUBLE PRECISION  FPMAXL,
DOUBLE PRECISION  FETCHL,
DOUBLE PRECISION  SIGMAL,
DOUBLE PRECISION  SIGMBL,
DOUBLE PRECISION  GAMMAL,
DOUBLE PRECISION  FPICL,
DOUBLE PRECISION  HM0L,
DOUBLE PRECISION  APHILL,
DOUBLE PRECISION  TETA1L,
DOUBLE PRECISION  SPRE1L,
DOUBLE PRECISION  TETA2L,
DOUBLE PRECISION  SPRE2L,
DOUBLE PRECISION  XLAMDL,
DOUBLE PRECISION,dimension(npoin2)  X,
DOUBLE PRECISION,dimension(npoin2)  Y,
INTEGER  KENT,
INTEGER  KSORT,
INTEGER  NFO1,
INTEGER  NBI1,
CHARACTER(LEN=3)  BINBI1,
DOUBLE PRECISION,dimension(npoin2)  UV,
DOUBLE PRECISION,dimension(npoin2)  VV,
LOGICAL  SPEULI,
LOGICAL  VENT,
LOGICAL  VENSTA,
DOUBLE PRECISION  GRAVIT,
DOUBLE PRECISION  DEUPI,
DOUBLE PRECISION,dimension(npoin2,npriv)  PRIVE,
INTEGER  NPRIV,
DOUBLE PRECISION,dimension(nf)  SPEC,
DOUBLE PRECISION,dimension(nplan)  FRA,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
INTEGER  FRABL,
INTEGER,dimension(nptfr),intent(in)  BOUNDARY_COLOUR 
)

Definition at line 661 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::MARUTI ( DOUBLE PRECISION,dimension(npoin),intent(in)  X,
DOUBLE PRECISION,dimension(npoin),intent(in)  Y,
INTEGER,intent(in)  NPOIN,
INTEGER,intent(in)  NMAR,
CHARACTER(LEN=3),intent(in)  BINMAR,
INTEGER,dimension(nptfr,2),intent(in)  NBOR,
INTEGER,intent(in)  NPTFR,
DOUBLE PRECISION,intent(in)  AT,
DOUBLE PRECISION,intent(in)  DDC,
DOUBLE PRECISION,intent(in)  TV1,
DOUBLE PRECISION,intent(in)  TV2,
DOUBLE PRECISION,dimension(npoin),intent(inout)  Z1,
DOUBLE PRECISION,dimension(npoin),intent(inout)  Z2 
)

Definition at line 688 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::MPOINT ( DOUBLE PRECISION,dimension(npoin2,nplan)  U,
DOUBLE PRECISION,dimension(npoin2,nplan)  V,
DOUBLE PRECISION,dimension(npoin2,nplan)  W,
DOUBLE PRECISION  DT,
DOUBLE PRECISION,dimension(npoin2)  X,
DOUBLE PRECISION,dimension(npoin2)  Y,
DOUBLE PRECISION,dimension(nplan+1)  TETA,
INTEGER,dimension(nelem2,3)  IKLE2,
INTEGER,dimension(nelem2,5)  IFABOR,
INTEGER,dimension(nplan)  ETAS,
DOUBLE PRECISION,dimension(nplot)  XPLOT,
DOUBLE PRECISION,dimension(nplot)  YPLOT,
DOUBLE PRECISION,dimension(nplot)  ZPLOT,
DOUBLE PRECISION,dimension(nplot)  DX,
DOUBLE PRECISION,dimension(nplot)  DY,
DOUBLE PRECISION,dimension(nplot)  DZ,
DOUBLE PRECISION,dimension(3,nplot)  SHP,
DOUBLE PRECISION,dimension(nplot)  SHZ,
INTEGER,dimension(nplot)  ELT,
INTEGER,dimension(nplot)  ETA,
INTEGER,dimension(nplot)  NSP,
INTEGER  NPLOT,
INTEGER  NPOIN2,
INTEGER  NELEM2,
INTEGER  NPLAN,
INTEGER  IFF,
DOUBLE PRECISION,dimension(nelem2)  SURDET,
INTEGER  SENS,
INTEGER,dimension(nplot)  ISO 
)

Definition at line 703 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::NOMVAR_TOMAWAC ( CHARACTER*32,dimension(maxvar)  TEXTE,
CHARACTER*32,dimension(maxvar)  TEXTPR,
CHARACTER*8,dimension(maxvar)  MNEMO,
INTEGER  MAXVAR 
)

Definition at line 725 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::NOUDON ( DOUBLE PRECISION,dimension(npoin),intent(inout)  F1,
CHARACTER(LEN=32),intent(in)  NAME1FR,
CHARACTER(LEN=32),intent(in)  NAME1GB,
INTEGER,intent(in)  MODE1,
DOUBLE PRECISION,dimension(npoin),intent(inout)  F2,
CHARACTER(LEN=32),intent(in)  NAME2FR,
CHARACTER(LEN=32),intent(in)  NAME2GB,
INTEGER,intent(in)  MODE2,
DOUBLE PRECISION,dimension(npoin),intent(inout)  F3,
CHARACTER(LEN=32),intent(in)  NAME3FR,
CHARACTER(LEN=32),intent(in)  NAME3GB,
INTEGER,intent(in)  MODE3,
DOUBLE PRECISION,dimension(npoin),intent(in)  X,
DOUBLE PRECISION,dimension(npoin),intent(in)  Y,
INTEGER,intent(in)  NPOIN,
INTEGER,intent(in)  NDON,
CHARACTER(LEN=3),intent(in)  BINDON,
INTEGER,dimension(nptfr,2),intent(in)  NBOR,
INTEGER,intent(in)  NPTFR,
DOUBLE PRECISION,intent(in)  AT,
DOUBLE PRECISION,intent(in)  DDC,
DOUBLE PRECISION,intent(inout)  TV1,
DOUBLE PRECISION,intent(inout)  TV2,
DOUBLE PRECISION,dimension(npoin),intent(inout)  F11,
DOUBLE PRECISION,dimension(npoin),intent(inout)  F12,
DOUBLE PRECISION,dimension(npoin),intent(inout)  F21,
DOUBLE PRECISION,dimension(npoin),intent(inout)  F22,
DOUBLE PRECISION,dimension(npoin),intent(inout)  F31,
DOUBLE PRECISION,dimension(npoin),intent(inout)  F32,
INTEGER,intent(in)  INDIC,
CHARACTER(LEN=7),intent(in)  CHDON,
INTEGER,intent(in)  NVAR,
CHARACTER(LEN=32),dimension(30),intent(in)  TEXTE,
LOGICAL,dimension(3),intent(inout)  TROUVE,
DOUBLE PRECISION,intent(in)  UNITIME,
DOUBLE PRECISION,intent(in)  PHASTIME 
)

Definition at line 737 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::P_READ2 ( INTEGER,dimension(*)  BUFFER,
INTEGER  NBYTES,
INTEGER  SOURCE,
INTEGER  TYPE 
)

Definition at line 767 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::P_WRIT2 ( INTEGER,dimension(*)  BUFFER,
INTEGER  NBYTES,
INTEGER  DEST,
INTEGER  TYPE 
)

Definition at line 777 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PREDIF ( TYPE(BIEF_OBJ),intent(inout)  CX,
TYPE(BIEF_OBJ),intent(inout)  CY,
TYPE(BIEF_OBJ),intent(inout)  CT,
DOUBLE PRECISION  DT,
DOUBLE PRECISION,dimension(npoin2)  X,
DOUBLE PRECISION,dimension(npoin2)  Y,
TYPE(BIEF_OBJ),intent(in)  TETA,
DOUBLE PRECISION,dimension(nplan)  COSTET,
DOUBLE PRECISION,dimension(nplan)  SINTET,
DOUBLE PRECISION,dimension(nf)  FREQ,
INTEGER,dimension(nelem2,3)  IKLE2,
INTEGER,dimension(nelem2,7)  IFABOR,
INTEGER,dimension(nplan)  ETAP1,
DOUBLE PRECISION,dimension(npoin3,8)  TRA01,
TYPE(BIEF_OBJ),intent(inout)  SHP,
TYPE(BIEF_OBJ),intent(inout)  SHZ,
INTEGER,dimension(npoin3,nf)  ELT,
INTEGER,dimension(npoin3,nf)  ETA,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION,dimension(npoin2)  DZX,
DOUBLE PRECISION,dimension(npoin2)  DZY,
DOUBLE PRECISION,dimension(npoin2,nf)  XK,
DOUBLE PRECISION,dimension(npoin2,nf)  CG,
INTEGER,dimension(npoin3,3)  ITR01,
INTEGER  NPOIN3,
INTEGER  NPOIN2,
INTEGER  NELEM2,
INTEGER  NPLAN,
INTEGER  NF,
DOUBLE PRECISION,dimension(nelem2)  SURDET,
LOGICAL  COURAN,
LOGICAL  SPHE,
LOGICAL  PROINF,
DOUBLE PRECISION,dimension(npoin2)  A,
DOUBLE PRECISION,dimension(nf)  DFREQ,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2)  CCG,
DOUBLE PRECISION,dimension(npoin2)  DIV,
DOUBLE PRECISION,dimension(npoin2)  DELTA,
DOUBLE PRECISION,dimension(npoin2)  DDX,
DOUBLE PRECISION,dimension(npoin2)  DDY,
DOUBLE PRECISION  EPS,
INTEGER,dimension(nptfr)  NBOR,
INTEGER  NPTFR,
DOUBLE PRECISION,dimension(npoin2)  XKONPT,
DOUBLE PRECISION,dimension(maxnsp,npoin2)  RK,
DOUBLE PRECISION,dimension(maxnsp,npoin2)  RX,
DOUBLE PRECISION,dimension(maxnsp,npoin2)  RY,
DOUBLE PRECISION,dimension(maxnsp,npoin2)  RXX,
DOUBLE PRECISION,dimension(maxnsp,npoin2)  RYY,
INTEGER,dimension(npoin2,maxnsp)  NEIGB,
INTEGER,dimension(npoin2)  NB_CLOSE,
INTEGER  DIFFRA,
INTEGER  MAXNSP,
LOGICAL  FLTDIF,
TYPE(BIEF_MESH),intent(inout)  MESH3D,
TYPE(BIEF_MESH),intent(inout)  MESH,
INTEGER  IELM3,
TYPE(BIEF_OBJ),intent(inout)  TB,
INTEGER,dimension(npoin3,nf),intent(inout)  ISUB,
TYPE(BIEF_OBJ),intent(in)  SIKLE2 
)

Definition at line 787 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PRELEO ( DOUBLE PRECISION,dimension(nleo)  XLEO,
DOUBLE PRECISION,dimension(nleo)  YLEO,
INTEGER  NLEO,
DOUBLE PRECISION,dimension(npoin2)  X,
DOUBLE PRECISION,dimension(npoin2)  Y,
INTEGER  NPOIN2,
INTEGER,dimension(nleo)  NOLEO 
)

Definition at line 846 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PRELEO_MPI ( DOUBLE PRECISION,dimension(nleo)  XLEO,
DOUBLE PRECISION,dimension(nleo)  YLEO,
INTEGER  NLEO,
DOUBLE PRECISION,dimension(npoin2)  X,
DOUBLE PRECISION,dimension(npoin2)  Y,
INTEGER,dimension(nelem2,3)  IKLE,
DOUBLE PRECISION,dimension(nelem2)  SURDET,
INTEGER  NPOIN2,
INTEGER  NELEM2,
INTEGER,dimension(nleo)  NOLEO,
LOGICAL,dimension(nleo)  ISLEO 
)

Definition at line 831 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PRENL1 ( INTEGER,dimension(nplan,8)  IANGNL,
DOUBLE PRECISION,dimension(16)  COEFNL,
INTEGER  NPLAN,
INTEGER  NF,
DOUBLE PRECISION  RAISF,
DOUBLE PRECISION  XLAMD 
)

Definition at line 858 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PRENL2 ( INTEGER,dimension(nplan,16)  IANGNL,
DOUBLE PRECISION,dimension(32)  COEFNL,
INTEGER  NPLAN,
INTEGER  NF,
DOUBLE PRECISION  RAISF,
DOUBLE PRECISION  XLAMD,
DOUBLE PRECISION  XMU 
)

Definition at line 872 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PRENL3 ( INTEGER  NF,
INTEGER  NT,
DOUBLE PRECISION  RAISF,
DOUBLE PRECISION  TAILF,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(dimbuf)  TB_SCA,
INTEGER  LBUF,
INTEGER  DIMBUF,
INTEGER,dimension(dimbuf)  F_POIN,
DOUBLE PRECISION,dimension(dimbuf)  F_COEF,
INTEGER,dimension(dimbuf)  T_POIN,
DOUBLE PRECISION,dimension(dimbuf)  F_PROJ,
INTEGER  IQ_OM1,
INTEGER  NQ_TE1,
INTEGER  NQ_OM2,
INTEGER  NF1,
INTEGER  NT1,
INTEGER,dimension(nf1)  K_IF1,
INTEGER,dimension (nq_om2,nt1,nf1)  K_IF2,
INTEGER,dimension (nq_om2,nt1,nf1)  K_IF3,
DOUBLE PRECISION,dimension(nf1)  TB_V14,
DOUBLE PRECISION,dimension(nq_om2,nt1,nf1)  TB_V24,
DOUBLE PRECISION,dimension(nq_om2,nt1,nf1)  TB_V34,
INTEGER,dimension(nt1,nf1)  K_1P,
INTEGER,dimension(nt1,nf1)  K_1M,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1P2P,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1P3M,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1P2M,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1P3P,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1M2P,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1M3M,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1M2M,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1M3P,
DOUBLE PRECISION,dimension(nq_om2,nt1,nf1)  TB_TPM,
DOUBLE PRECISION,dimension(nq_om2,nt1,nf1)  TB_TMP,
DOUBLE PRECISION,dimension(nq_om2,nt1,nf1)  TB_FAC,
DOUBLE PRECISION  SEUIL1,
DOUBLE PRECISION  SEUIL2,
DOUBLE PRECISION  ELIM,
INTEGER  NCONF,
INTEGER  NCONFM,
INTEGER,dimension(nconfm,3)  IDCONF 
)

Definition at line 886 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PREP_LOST_AGAIN ( INTEGER,intent(in)  NOMB,
INTEGER,intent(out)  NSEND,
INTEGER,intent(in)  NLOSTAGAIN,
INTEGER,intent(in)  NARRV 
)

Definition at line 1618 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PREP_SENDBACK ( INTEGER,intent(in)  NOMB,
INTEGER,intent(inout)  NCHARA 
)

Definition at line 1628 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PREPRO ( TYPE(BIEF_OBJ),intent(inout)  CX,
TYPE(BIEF_OBJ),intent(inout)  CY,
TYPE(BIEF_OBJ),intent(inout)  CT,
TYPE(BIEF_OBJ),intent(inout)  CF,
DOUBLE PRECISION,intent(in)  DT,
DOUBLE PRECISION,dimension(npoin2)  X,
DOUBLE PRECISION,dimension(npoin2)  Y,
TYPE(BIEF_OBJ),intent(in)  TETA,
DOUBLE PRECISION,dimension(nplan)  COSTET,
DOUBLE PRECISION,dimension(nplan)  SINTET,
TYPE(BIEF_OBJ),intent(in)  FREQ,
INTEGER,dimension(nelem2,3),intent(in)  IKLE2,
INTEGER,dimension(nelem2,7),intent(inout)  IFABOR,
INTEGER,dimension(nplan),intent(in)  ETAP1,
DOUBLE PRECISION,dimension(npoin3,6),intent(inout)  TRA01,
TYPE(BIEF_OBJ),intent(inout)  SHP,
TYPE(BIEF_OBJ),intent(inout)  SHZ,
TYPE(BIEF_OBJ),intent(inout)  SHF,
INTEGER,dimension(npoin3,nf),intent(inout)  ELT,
INTEGER,dimension(npoin3,nf),intent(inout)  ETA,
INTEGER,dimension(npoin3,nf),intent(inout)  FRE,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION,dimension(npoin2)  DZHDT,
DOUBLE PRECISION,dimension(npoin2)  DZX,
DOUBLE PRECISION,dimension(npoin2)  DZY,
DOUBLE PRECISION,dimension(npoin2)  U,
DOUBLE PRECISION,dimension(npoin2)  V,
DOUBLE PRECISION,dimension(npoin2)  DUX,
DOUBLE PRECISION,dimension(npoin2)  DUY,
DOUBLE PRECISION,dimension(npoin2)  DVX,
DOUBLE PRECISION,dimension(npoin2)  DVY,
DOUBLE PRECISION,dimension(npoin2,nf)  XK,
DOUBLE PRECISION,dimension(npoin2,nf)  CG,
DOUBLE PRECISION,dimension(npoin2)  COSF,
DOUBLE PRECISION,dimension(npoin2)  TGF,
INTEGER,dimension(npoin3,3),intent(inout)  ITR01,
INTEGER,intent(in)  NPOIN3,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NELEM2,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NF,
DOUBLE PRECISION,dimension(nelem2)  SURDET,
LOGICAL,intent(in)  COURAN,
LOGICAL,intent(in)  SPHE,
LOGICAL,intent(in)  PROINF,
DOUBLE PRECISION,intent(in)  PROMIN,
TYPE(BIEF_MESH),intent(inout)  MESH,
TYPE(BIEF_MESH),intent(inout)  MESH3D,
TYPE(BIEF_OBJ),intent(in)  SIKLE2,
TYPE(BIEF_OBJ),intent(inout)  TB,
INTEGER,intent(inout)  IELM3,
INTEGER,intent(in)  DIFFRA,
LOGICAL,intent(in)  MAREE,
INTEGER,dimension(npoin3,nf),intent(inout)  ISUB 
)

Definition at line 919 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PREQT2 ( DOUBLE PRECISION,dimension(nplan)  TETA,
INTEGER  NPLAN,
DOUBLE PRECISION  BDISPB,
DOUBLE PRECISION  BDSSPB,
INTEGER  NBD,
INTEGER,dimension(nplan)  INDI 
)

Definition at line 959 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PRINT_HEAPCHAR ( CHARACTER(LEN=*),intent(in)  MESSAGE,
INTEGER,intent(in)  NOMB,
INTEGER,intent(in)  NCHARA 
)

Definition at line 1713 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PRINT_RECVCHAR ( CHARACTER(LEN=*),intent(in)  MESSAGE,
INTEGER,intent(in)  NOMB,
INTEGER,intent(in)  NARRV 
)

Definition at line 1733 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PRINT_SENDCHAR ( CHARACTER(LEN=*),intent(in)  MESSAGE,
INTEGER,intent(in)  NOMB,
INTEGER,intent(in)  NSEND 
)

Definition at line 1723 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::PROPA ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  B,
TYPE(BIEF_OBJ),intent(inout)  SHP,
TYPE(BIEF_OBJ),intent(inout)  SHZ,
TYPE(BIEF_OBJ),intent(inout)  SHF,
INTEGER,dimension(npoin3,nf),intent(inout)  ELT,
INTEGER,dimension(npoin3,nf),intent(inout)  ETA,
INTEGER,dimension(npoin3,nf),intent(inout)  FRE,
TYPE(BIEF_OBJ),intent(in)  IKLE_EXT,
INTEGER  NPOIN3,
INTEGER  NPOIN2,
INTEGER  NPLAN,
INTEGER  NF,
LOGICAL,intent(in)  COURAN,
DOUBLE PRECISION,dimension(npoin3,8)  TRA01,
TYPE(BIEF_OBJ),intent(inout)  TRA02,
INTEGER,dimension(npoin3*3),intent(inout)  ITR01,
TYPE(BIEF_OBJ),intent(inout)  T3_01,
TYPE(BIEF_OBJ),intent(inout)  T3_02,
INTEGER,dimension(npoin3,nf),intent(in)  ISUB,
TYPE(BIEF_MESH),intent(inout)  MESH3D 
)

Definition at line 972 of file interface_tomawac.f.

DOUBLE PRECISION INTERFACE_TOMAWAC::interface::QBBJ78 ( DOUBLE PRECISION  B,
INTEGER  IQBBJ 
)

Definition at line 995 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QBREK1 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2)  FCAR,
DOUBLE PRECISION,dimension(npoin2)  VARIAN,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION  ALFABJ,
DOUBLE PRECISION  GAMBJ1,
DOUBLE PRECISION  GAMBJ2,
INTEGER  IQBBJ,
INTEGER  IHMBJ,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2)  BETA 
)

Definition at line 1005 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QBREK2 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2)  FCAR,
DOUBLE PRECISION,dimension(npoin2)  VARIAN,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION  BORETG,
DOUBLE PRECISION  GAMATG,
INTEGER  IWHTG,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2)  BETA 
)

Definition at line 1020 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QBREK3 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2)  FCAR,
DOUBLE PRECISION,dimension(npoin2)  VARIAN,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION  ALFARO,
DOUBLE PRECISION  GAMARO,
DOUBLE PRECISION  GAM2RO,
INTEGER  IEXPRO,
INTEGER  IDISRO,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2)  BETA 
)

Definition at line 1035 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QBREK4 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2)  FCAR,
DOUBLE PRECISION,dimension(npoin2)  VARIAN,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION  BETAIH,
DOUBLE PRECISION  EM2SIH,
DOUBLE PRECISION  GRAVIT,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2)  BETA 
)

Definition at line 1050 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QDSCUR ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  F,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(in)  CF,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  XK,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
DOUBLE PRECISION,dimension(npoin2),intent(in)  USOLD,
DOUBLE PRECISION,dimension(npoin2),intent(in)  USNEW,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DEPTH,
LOGICAL,intent(in)  PROINF,
DOUBLE PRECISION,intent(in)  CDSCUR,
DOUBLE PRECISION,intent(in)  CMOUT4,
INTEGER,intent(in)  NF,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,intent(in)  CIMPLI,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F_INT,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  BETOTO,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  BETOTN 
)

Definition at line 1065 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QFROT1 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2,nf)  XK,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION  CFROT1,
DOUBLE PRECISION  GRAVIT,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2)  BETA 
)

Definition at line 1090 of file interface_tomawac.f.

DOUBLE PRECISION INTERFACE_TOMAWAC::interface::QGAUSS ( DOUBLE PRECISION  B,
INTEGER  N,
DOUBLE PRECISION  A,
DOUBLE PRECISION  XM 
)

Definition at line 1105 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QMOUT1 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(in)  F,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  XK,
DOUBLE PRECISION,dimension(npoin2),intent(in)  ENRJ,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
DOUBLE PRECISION,dimension(npoin2),intent(in)  FMOY,
DOUBLE PRECISION,dimension(npoin2),intent(in)  XKMOY,
LOGICAL,intent(in)  PROINF,
DOUBLE PRECISION,intent(in)  CMOUT1,
DOUBLE PRECISION,intent(in)  CMOUT2,
INTEGER,intent(in)  NF,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  TAUX1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  BETA 
)

Definition at line 1117 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QMOUT2 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  F,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  XK,
DOUBLE PRECISION,dimension(npoin2),intent(in)  ENRJ,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
DOUBLE PRECISION,dimension(npoin2),intent(in)  FMOY,
DOUBLE PRECISION,dimension(npoin2),intent(in)  XKMOY,
DOUBLE PRECISION,dimension(npoin2),intent(in)  USOLD,
DOUBLE PRECISION,dimension(npoin2),intent(in)  USNEW,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DEPTH,
LOGICAL,intent(in)  PROINF,
DOUBLE PRECISION,intent(in)  CMOUT3,
DOUBLE PRECISION,intent(in)  CMOUT4,
DOUBLE PRECISION,intent(in)  CMOUT5,
DOUBLE PRECISION,intent(in)  CMOUT6,
INTEGER,intent(in)  NF,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,intent(in)  CIMPLI,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  TAUX1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  F_INT,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  BETOTO,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  BETOTN 
)

Definition at line 1137 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QNLIN1 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSDER,
INTEGER,dimension(nplan,8),intent(in)  IANGNL,
DOUBLE PRECISION,dimension(16),intent(in)  COEFNL,
INTEGER,intent(in)  NF,
INTEGER,intent(in)  NPLAN,
DOUBLE PRECISION,intent(in)  F1,
DOUBLE PRECISION,intent(in)  RAISF,
DOUBLE PRECISION,intent(in)  TAILF,
LOGICAL,intent(in)  PROINF,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(in)  F,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DEPTH,
DOUBLE PRECISION,dimension(npoin2),intent(in)  XKMOY,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  TAUX1,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  TAUX2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  TAUX3,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  TAUX4,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  TAUX5,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  DFINI 
)

Definition at line 1161 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QNLIN2 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER,
INTEGER,dimension(nplan,16)  IANGNL,
DOUBLE PRECISION,dimension(32)  COEFNL,
INTEGER  NF,
INTEGER  NPLAN,
DOUBLE PRECISION  F1,
DOUBLE PRECISION  RAISF,
DOUBLE PRECISION  TAILF,
LOGICAL  PROINF,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION,dimension(npoin2)  XKMOY,
DOUBLE PRECISION,dimension(npoin2)  TAUX1,
DOUBLE PRECISION,dimension(npoin2)  DFINI,
DOUBLE PRECISION  XCOEF 
)

Definition at line 1186 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QNLIN3 ( DOUBLE PRECISION,dimension(nb_nod,nt,nf)  TSTOT,
DOUBLE PRECISION,dimension(nb_nod,nt,nf)  TSDER,
DOUBLE PRECISION,dimension(nb_nod,nt,nf)  F,
INTEGER  NB_NOD,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nt)  TETA,
INTEGER  NT,
INTEGER  NF,
DOUBLE PRECISION  RAISF,
DOUBLE PRECISION  TAILF,
DOUBLE PRECISION  SEUIL,
DOUBLE PRECISION,dimension(nb_nod)  FSEUIL,
INTEGER  LBUF,
INTEGER  DIMBUF,
INTEGER,dimension(dimbuf)  F_POIN,
DOUBLE PRECISION,dimension(dimbuf)  F_COEF,
DOUBLE PRECISION,dimension(dimbuf)  F_PROJ,
INTEGER,dimension(dimbuf)  T_POIN,
DOUBLE PRECISION,dimension(dimbuf)  TB_SCA,
INTEGER  NQ_TE1,
INTEGER  NQ_OM2,
INTEGER  NF1,
INTEGER  NT1,
DOUBLE PRECISION,dimension(nf)  DFREQ,
INTEGER,dimension(nf1)  K_IF1,
INTEGER,dimension (nq_om2,nt1,nf1)  K_IF2,
INTEGER,dimension (nq_om2,nt1,nf1)  K_IF3,
DOUBLE PRECISION,dimension(nf1)  TB_V14,
DOUBLE PRECISION,dimension(nq_om2,nt1,nf1)  TB_V24,
DOUBLE PRECISION,dimension(nq_om2,nt1,nf1)  TB_V34,
INTEGER,dimension(nt1,nf1)  K_1P,
INTEGER,dimension(nt1,nf1)  K_1M,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1P2P,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1P3M,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1P2M,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1P3P,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1M2P,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1M3M,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1M2M,
INTEGER,dimension(nq_om2,nt1,nf1)  K_1M3P,
DOUBLE PRECISION,dimension(nq_om2,nt1,nf1)  TB_TPM,
DOUBLE PRECISION,dimension(nq_om2,nt1,nf1)  TB_TMP,
DOUBLE PRECISION,dimension(nq_om2,nt1,nf1)  TB_FAC,
INTEGER  NCONF,
INTEGER  NCONFM,
INTEGER,dimension(nconfm,3)  IDCONF 
)

Definition at line 1206 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QTRIA1 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2,nf)  XK,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION  RAISF,
DOUBLE PRECISION  ALFLTA,
DOUBLE PRECISION  RFMLTA,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER,
DOUBLE PRECISION,dimension(npoin2)  FTOT,
DOUBLE PRECISION,dimension(npoin2)  FMOY 
)

Definition at line 1239 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QTRIA2 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2,nf)  XK,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION,dimension(nplan)  TETA,
DOUBLE PRECISION,dimension(nplan)  SINTET,
DOUBLE PRECISION,dimension(nplan)  COSTET,
DOUBLE PRECISION  KSPB,
DOUBLE PRECISION  BDISPB,
DOUBLE PRECISION  BDSSPB,
DOUBLE PRECISION  RAISF,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
INTEGER  NBD,
INTEGER,dimension(nbd)  INDI,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER 
)

Definition at line 1255 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QVEG1 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(in)  F,
DOUBLE PRECISION,dimension(npoin2),intent(in)  VARIAN,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DEPTH,
DOUBLE PRECISION,dimension(npoin2),intent(in)  FMOY,
DOUBLE PRECISION,dimension(npoin2),intent(in)  XKMOY,
INTEGER,intent(in)  NF,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  BETA 
)

Definition at line 1276 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QWIND1 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2,nf)  XK,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(npoin2)  USOLD,
DOUBLE PRECISION,dimension(npoin2)  USNEW,
DOUBLE PRECISION,dimension(npoin2)  TWOLD,
DOUBLE PRECISION,dimension(npoin2)  TWNEW,
DOUBLE PRECISION,dimension(npoin2)  Z0OLD,
DOUBLE PRECISION,dimension(npoin2)  Z0NEW,
DOUBLE PRECISION,dimension(nplan)  TETA,
DOUBLE PRECISION  ROAIR,
DOUBLE PRECISION  ROEAU,
DOUBLE PRECISION  BETAM,
DOUBLE PRECISION  XKAPPA,
DOUBLE PRECISION  DECAL,
DOUBLE PRECISION  GRAVIT,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION  CIMPLI,
DOUBLE PRECISION,dimension(npoin2,nplan)  TOLD,
DOUBLE PRECISION,dimension(npoin2,nplan)  TNEW,
DOUBLE PRECISION,dimension(npoin2)  CPHAS,
DOUBLE PRECISION,dimension(npoin2)  USN,
DOUBLE PRECISION,dimension(npoin2)  USO,
DOUBLE PRECISION,dimension(npoin2)  OMNEW,
DOUBLE PRECISION,dimension(npoin2)  OMOLD,
DOUBLE PRECISION,dimension(npoin2)  BETAN,
DOUBLE PRECISION,dimension(npoin2)  BETAO 
)

Definition at line 1299 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QWIND2 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(in)  F,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  XK,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
DOUBLE PRECISION,dimension(npoin2),intent(in)  USOLD,
DOUBLE PRECISION,dimension(npoin2),intent(in)  USNEW,
DOUBLE PRECISION,dimension(npoin2),intent(in)  TWOLD,
DOUBLE PRECISION,dimension(npoin2),intent(in)  TWNEW,
DOUBLE PRECISION,dimension(nplan),intent(in)  TETA,
DOUBLE PRECISION,intent(in)  ROAIR,
DOUBLE PRECISION,intent(in)  ROEAU,
INTEGER,intent(in)  NF,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,intent(in)  CIMPLI,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  USN,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  USO 
)

Definition at line 1321 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QWIND3 ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2,nf)  XK,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(npoin2)  USOLD,
DOUBLE PRECISION,dimension(npoin2)  USNEW,
DOUBLE PRECISION,dimension(npoin2)  TWOLD,
DOUBLE PRECISION,dimension(npoin2)  TWNEW,
DOUBLE PRECISION,dimension(nplan)  TETA,
DOUBLE PRECISION  GRAVIT,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION  CIMPLI,
DOUBLE PRECISION  COEFWD,
DOUBLE PRECISION  COEFWE,
DOUBLE PRECISION  COEFWF,
DOUBLE PRECISION  COEFWH,
DOUBLE PRECISION,dimension(npoin2)  BETAN,
DOUBLE PRECISION,dimension(npoin2)  BETAO,
DOUBLE PRECISION,dimension(npoin2)  DIRN,
DOUBLE PRECISION,dimension(npoin2)  DIRO 
)

Definition at line 1342 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::QWINDL ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(inout)  TSTOT,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
DOUBLE PRECISION,dimension(npoin2),intent(in)  USOLD,
DOUBLE PRECISION,dimension(npoin2),intent(in)  USNEW,
DOUBLE PRECISION,dimension(npoin2),intent(in)  TWOLD,
DOUBLE PRECISION,dimension(npoin2),intent(in)  TWNEW,
DOUBLE PRECISION,dimension(nplan),intent(in)  TETA,
INTEGER,intent(in)  NF,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,intent(in)  CIMPLI,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  USN,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  USO,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  FPMO,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  FPMN 
)

Definition at line 1362 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::RADIAT ( DOUBLE PRECISION,dimension(npoin2)  FX,
DOUBLE PRECISION,dimension(npoin2)  FY,
DOUBLE PRECISION,dimension(npoin2)  SXX,
DOUBLE PRECISION,dimension(npoin2)  SXY,
DOUBLE PRECISION,dimension(npoin2)  SYY,
DOUBLE PRECISION,dimension(npoin2,nf)  XK1,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  FS,
DOUBLE PRECISION,dimension(npoin2,nf)  CG1,
DOUBLE PRECISION,dimension(npoin2)  DEPTH1,
DOUBLE PRECISION,dimension(npoin2,nf)  CGSUC1,
DOUBLE PRECISION,dimension(npoin2)  DSXXDX,
DOUBLE PRECISION,dimension(npoin2)  DSXYDX,
DOUBLE PRECISION,dimension(npoin2)  DSXYDY,
DOUBLE PRECISION,dimension(npoin2)  DSYYDY 
)

Definition at line 1381 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::RE_INITIALISE_CHARS ( INTEGER,intent(out)  NSEND,
INTEGER,intent(out)  NLOSTCHAR,
INTEGER,intent(out)  NLOSTAGAIN,
INTEGER,intent(out)  NARRV 
)

Definition at line 1609 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::RPI_INTR ( INTEGER,dimension(npoin2,maxnsp),intent(in)  NEIGB,
INTEGER,dimension(npoin2),intent(in)  NB_CLOSE,
DOUBLE PRECISION,dimension(maxnsp),intent(in)  RK,
DOUBLE PRECISION,dimension(maxnsp),intent(in)  RX,
DOUBLE PRECISION,dimension(maxnsp),intent(in)  RY,
DOUBLE PRECISION,dimension(maxnsp),intent(in)  RXX,
DOUBLE PRECISION,dimension(maxnsp),intent(in)  RYY,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  I,
INTEGER,intent(in)  MAXNSP,
DOUBLE PRECISION,dimension(npoin2),intent(in)  FFD,
DOUBLE PRECISION,intent(inout)  FIRDIV1,
DOUBLE PRECISION,intent(inout)  FIRDIV2,
DOUBLE PRECISION,intent(inout)  SECDIV1,
DOUBLE PRECISION,intent(inout)  SECDIV2,
DOUBLE PRECISION,intent(inout)  SECDIV3,
LOGICAL,intent(in)  FRSTDIV,
LOGICAL,intent(in)  SCNDDIV 
)

Definition at line 1398 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::RPI_INVR ( DOUBLE PRECISION,dimension(npoin2)  X,
DOUBLE PRECISION,dimension(npoin2)  Y,
INTEGER,dimension(npoin2,maxnsp)  NEIGB,
INTEGER,dimension(npoin2)  NB_CLOSE,
DOUBLE PRECISION,dimension(maxnsp)  RK_D,
DOUBLE PRECISION,dimension(maxnsp)  RX_D,
DOUBLE PRECISION,dimension(maxnsp)  RY_D,
DOUBLE PRECISION,dimension(maxnsp)  RXX_D,
DOUBLE PRECISION,dimension(maxnsp)  RYY_D,
INTEGER  NPOIN2,
INTEGER  I,
DOUBLE PRECISION  QUO,
DOUBLE PRECISION  AC,
INTEGER  MAXNSP,
DOUBLE PRECISION,dimension(npoin2)  MINDIST 
)

Definition at line 1419 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::SCARACT ( TYPE(BIEF_OBJ),intent(in)  U,
TYPE(BIEF_OBJ),intent(inout)  UTILD,
DOUBLE PRECISION,dimension(npoin),intent(in)  UCONV,
DOUBLE PRECISION,dimension(npoin),intent(in)  VCONV,
DOUBLE PRECISION,dimension(npoin),intent(in)  WCONV,
DOUBLE PRECISION,dimension(npoin),intent(in)  X,
DOUBLE PRECISION,dimension(npoin),intent(in)  Y,
DOUBLE PRECISION,dimension(nplan),intent(in)  ZSTAR,
TYPE(BIEF_OBJ),intent(inout)  XCONV,
TYPE(BIEF_OBJ),intent(inout)  YCONV,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(out)  ZCONV,
DOUBLE PRECISION,dimension(npoin),intent(out)  DX,
DOUBLE PRECISION,dimension(npoin),intent(out)  DY,
DOUBLE PRECISION,dimension(npoin),intent(out)  DZ,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  Z,
DOUBLE PRECISION,dimension(ndp,npoin),intent(out)  SHP,
DOUBLE PRECISION,dimension(npoin),intent(out)  SHZ,
DOUBLE PRECISION,dimension(nelem),intent(in)  SURDET,
DOUBLE PRECISION,intent(in)  DT,
INTEGER,dimension(nelmax,ndp),intent(in)  IKLE,
INTEGER,dimension(nelmax,*),intent(in)  IFABOR,
INTEGER,dimension(npoin),intent(out)  ELT,
INTEGER,dimension(npoin),intent(out)  ETA,
INTEGER,dimension(npoin),intent(out)  ITRAV1,
INTEGER,dimension(npoin),intent(out)  ITRAV2,
INTEGER,intent(in)  IELM,
INTEGER,intent(in)  IELMU,
INTEGER,intent(in)  NELEM,
INTEGER,intent(in)  NELMAX,
INTEGER,intent(in)  NOMB,
INTEGER,intent(in)  NPOIN,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NDP,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  LV,
LOGICAL,intent(in)  MSK,
DOUBLE PRECISION,dimension(nelmax),intent(in)  MASKEL,
TYPE(BIEF_MESH),intent(inout)  MESH,
DOUBLE PRECISION,dimension(npoin),intent(in)  FAC,
DOUBLE PRECISION,dimension(npoin),intent(out)  TEST,
TYPE(BIEF_OBJ),intent(inout)  STEST,
LOGICAL,intent(in)  INITLOC 
)

Definition at line 1933 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::SCHAR11 ( DOUBLE PRECISION,dimension(npoin),intent(in)  U,
DOUBLE PRECISION,dimension(npoin),intent(in)  V,
DOUBLE PRECISION,intent(in)  DT,
INTEGER,intent(in)  NRK,
DOUBLE PRECISION,dimension(npoin),intent(in)  X,
DOUBLE PRECISION,dimension(npoin),intent(in)  Y,
INTEGER,dimension(nelmax,3),intent(in)  IKLE,
INTEGER,dimension(nelmax,3),intent(in)  IFABOR,
DOUBLE PRECISION,dimension(nplot),intent(inout)  XPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  YPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DX,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DY,
DOUBLE PRECISION,dimension(3,nplot),intent(inout)  SHP,
INTEGER,dimension(nplot),intent(inout)  ELT,
INTEGER,dimension(nplot),intent(out)  NSP,
INTEGER,intent(in)  NPLOT,
INTEGER,intent(in)  NPOIN,
INTEGER,intent(in)  NELEM,
INTEGER,intent(in)  NELMAX,
DOUBLE PRECISION,dimension(nelem),intent(in)  SURDET,
INTEGER,intent(in)  SENS,
DOUBLE PRECISION,dimension(nplot),intent(inout)  TEST,
INTEGER,dimension(6,*),intent(in)  IFAPAR,
TYPE (BIEF_MESH),intent(inout)  MESH,
INTEGER,intent(in)  NCHDIM,
INTEGER,intent(inout)  NCHARA 
)

Definition at line 1831 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::SCHAR41 ( DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  U,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  V,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  W,
DOUBLE PRECISION,intent(in)  DT,
INTEGER,intent(in)  NRK,
DOUBLE PRECISION,dimension(npoin2),intent(in)  X,
DOUBLE PRECISION,dimension(npoin2),intent(in)  Y,
DOUBLE PRECISION,dimension(nplan),intent(in)  ZSTAR,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  Z,
INTEGER,dimension(nelem2,3),intent(in)  IKLE2,
INTEGER,dimension(nelem2,5,nplan-1),intent(in)  IBOR,
DOUBLE PRECISION,dimension(nplot),intent(inout)  XPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  YPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  ZPLOT,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DX,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DY,
DOUBLE PRECISION,dimension(nplot),intent(inout)  DZ,
DOUBLE PRECISION,dimension(3,nplot),intent(inout)  SHP,
DOUBLE PRECISION,dimension(nplot),intent(inout)  SHZ,
INTEGER,dimension(nplot),intent(inout)  ELT,
INTEGER,dimension(nplot),intent(inout)  ETA,
INTEGER,dimension(nplot),intent(inout)  NSP,
INTEGER,intent(in)  NPLOT,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NELEM2,
INTEGER,intent(in)  NPLAN,
DOUBLE PRECISION,dimension(nelem2),intent(in)  SURDET,
INTEGER,intent(in)  SENS,
DOUBLE PRECISION,dimension(nplot),intent(inout)  TEST,
INTEGER,dimension(6,*),intent(in)  IFAPAR,
INTEGER,intent(in)  NCHDIM,
INTEGER,intent(inout)  NCHARA 
)

Definition at line 1743 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::SEMIMP ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  CF,
DOUBLE PRECISION,dimension(npoin2,nf)  XK,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION,dimension(npoin2)  VENTX,
DOUBLE PRECISION,dimension(npoin2)  VENTY,
DOUBLE PRECISION,dimension(npoin2)  X,
DOUBLE PRECISION,dimension(npoin2)  Y,
INTEGER  NVEB,
INTEGER  NVEF,
INTEGER,dimension(nptfr)  NBOR,
INTEGER  NPTFR,
DOUBLE PRECISION  DDC,
DOUBLE PRECISION  TV1,
DOUBLE PRECISION  TV2,
DOUBLE PRECISION,dimension(npoin2)  U1,
DOUBLE PRECISION,dimension(npoin2)  V1,
DOUBLE PRECISION,dimension(npoin2)  U2,
DOUBLE PRECISION,dimension(npoin2)  V2,
DOUBLE PRECISION,dimension(nplan)  TETA,
DOUBLE PRECISION,dimension(nplan)  SINTET,
DOUBLE PRECISION,dimension(nplan)  COSTET,
INTEGER  INDIC,
DOUBLE PRECISION  TAILF,
DOUBLE PRECISION  RAISF,
DOUBLE PRECISION  GRAVIT,
DOUBLE PRECISION  CFROT1,
DOUBLE PRECISION  CMOUT1,
DOUBLE PRECISION  CMOUT2,
DOUBLE PRECISION  CMOUT3,
DOUBLE PRECISION  CMOUT4,
DOUBLE PRECISION  CMOUT5,
DOUBLE PRECISION  CMOUT6,
DOUBLE PRECISION  TPROP,
DOUBLE PRECISION  DTSI,
DOUBLE PRECISION  ROAIR,
DOUBLE PRECISION  ROEAU,
DOUBLE PRECISION  XKAPPA,
DOUBLE PRECISION  BETAM,
DOUBLE PRECISION  DECAL,
DOUBLE PRECISION  CDRAG,
DOUBLE PRECISION  ALPHA,
DOUBLE PRECISION  ZVENT,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
INTEGER,dimension(nplan,8)  IANGNL,
DOUBLE PRECISION,dimension(16)  COEFNL,
DOUBLE PRECISION  F1,
INTEGER  NSITS,
INTEGER  SMOUT,
INTEGER  SFROT,
INTEGER  SVENT,
INTEGER  LVENT,
INTEGER  STRIF,
LOGICAL  VENT,
LOGICAL  VENSTA,
DOUBLE PRECISION  VX_CTE,
DOUBLE PRECISION  VY_CTE,
INTEGER  SBREK,
DOUBLE PRECISION  ALFABJ,
DOUBLE PRECISION  GAMBJ1,
DOUBLE PRECISION  GAMBJ2,
INTEGER  IQBBJ,
INTEGER  IHMBJ,
INTEGER  IFRBJ,
DOUBLE PRECISION  BORETG,
DOUBLE PRECISION  GAMATG,
INTEGER  IWHTG,
INTEGER  IFRTG,
DOUBLE PRECISION  ALFARO,
DOUBLE PRECISION  GAMARO,
DOUBLE PRECISION  GAM2RO,
INTEGER  IDISRO,
INTEGER  IEXPRO,
INTEGER  IFRRO,
DOUBLE PRECISION  BETAIH,
DOUBLE PRECISION  EM2SIH,
INTEGER  IFRIH,
DOUBLE PRECISION  COEFHS,
DOUBLE PRECISION  XDTBRK,
INTEGER  NDTBRK,
INTEGER  STRIA,
DOUBLE PRECISION  ALFLTA,
DOUBLE PRECISION  RFMLTA,
DOUBLE PRECISION  KSPB,
DOUBLE PRECISION  BDISPB,
DOUBLE PRECISION  BDSSPB,
LOGICAL  PROINF,
DOUBLE PRECISION,dimension(npoin2,nf)  DF_LIM,
INTEGER  LIMIT,
DOUBLE PRECISION  CIMPLI,
DOUBLE PRECISION  COEFWD,
DOUBLE PRECISION  COEFWE,
DOUBLE PRECISION  COEFWF,
DOUBLE PRECISION  COEFWH,
CHARACTER*144  NOMVEB,
CHARACTER*144  NOMVEF,
CHARACTER*3  BINVEN,
INTEGER  NBD,
INTEGER,dimension(nbd)  QINDI,
DOUBLE PRECISION,dimension(npoin2)  TAUWAV,
DOUBLE PRECISION,dimension(npoin2)  USOLD,
DOUBLE PRECISION,dimension(npoin2)  TWOLD,
DOUBLE PRECISION,dimension(npoin2)  Z0OLD,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSDER,
DOUBLE PRECISION,dimension(npoin2,nplan)  TOLD,
DOUBLE PRECISION,dimension(npoin2,nplan)  TNEW,
DOUBLE PRECISION,dimension(npoin2)  VARIAN,
DOUBLE PRECISION,dimension(npoin2)  FMOY,
DOUBLE PRECISION,dimension(npoin2)  XKMOY,
DOUBLE PRECISION,dimension(npoin2)  USNEW,
DOUBLE PRECISION,dimension(npoin2)  Z0NEW,
DOUBLE PRECISION,dimension(npoin2)  TWNEW,
DOUBLE PRECISION,dimension(npoin2)  TAUX1,
DOUBLE PRECISION,dimension(npoin2)  TAUX2,
DOUBLE PRECISION,dimension(npoin2)  TAUX3,
DOUBLE PRECISION,dimension(npoin2)  TAUX4,
DOUBLE PRECISION,dimension(npoin2)  TAUX5,
DOUBLE PRECISION,dimension(npoin2)  TAUX6,
DOUBLE PRECISION,dimension(npoin2)  TAUX7,
DOUBLE PRECISION,dimension(npoin2)  BETA,
INTEGER  NQ_TE1,
INTEGER  NQ_OM2,
INTEGER  NF1,
INTEGER  NF2,
INTEGER  NT1,
INTEGER  NCONF,
INTEGER  NCONFM,
DOUBLE PRECISION  SEUIL,
INTEGER  LBUF,
INTEGER  DIMBUF,
INTEGER,dimension(dimbuf)  F_POIN,
INTEGER,dimension(dimbuf)  T_POIN,
DOUBLE PRECISION,dimension(dimbuf)  F_COEF,
DOUBLE PRECISION,dimension(dimbuf)  F_PROJ,
DOUBLE PRECISION,dimension(dimbuf)  TB_SCA,
INTEGER,dimension (1:nf1)  K_IF1,
INTEGER,dimension (1:nt1,1:nf1)  K_1P,
INTEGER,dimension(1:nt1,1:nf1)  K_1M,
INTEGER,dimension (1:nf2,1:nt1,1:nf1)  K_IF2,
INTEGER,dimension (1:nf2,1:nt1,1:nf1)  K_IF3,
INTEGER,dimension(1:nf2,1:nt1,1:nf1)  K_1P2P,
INTEGER,dimension(1:nf2,1:nt1,1:nf1)  K_1P2M,
INTEGER,dimension(1:nf2,1:nt1,1:nf1)  K_1P3P,
INTEGER,dimension(1:nf2,1:nt1,1:nf1)  K_1P3M,
INTEGER,dimension(1:nf2,1:nt1,1:nf1)  K_1M2P,
INTEGER,dimension(1:nf2,1:nt1,1:nf1)  K_1M2M,
INTEGER,dimension(1:nf2,1:nt1,1:nf1)  K_1M3P,
INTEGER,dimension(1:nf2,1:nt1,1:nf1)  K_1M3M,
INTEGER,dimension(1:nconfm,1:3)  IDCONF,
DOUBLE PRECISION,dimension(1:nf1)  TB_V14,
DOUBLE PRECISION,dimension(1:nf2,1:nt1,1:nf1)  TB_V24,
DOUBLE PRECISION,dimension(1:nf2,1:nt1,1:nf1)  TB_V34,
DOUBLE PRECISION,dimension(1:nf2,1:nt1,1:nf1)  TB_TPM,
DOUBLE PRECISION,dimension(1:nf2,1:nt1,1:nf1)  TB_TMP,
DOUBLE PRECISION,dimension(1:nf2,1:nt1,1:nf1)  TB_FAC,
INTEGER  MDIA,
INTEGER,dimension(nplan,16,mdia)  IANMDI,
DOUBLE PRECISION,dimension(32,mdia)  COEMDI,
INTEGER  NVWIN,
INTEGER  DIAGHF,
LOGICAL  VEGETATION,
INTEGER  SDSCU,
DOUBLE PRECISION  CDSCUR 
)

Definition at line 1437 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::SEND_RECV_TOMAWAC ( TYPE(BIEF_OBJ),intent(inout)  U,
TYPE(BIEF_OBJ),intent(inout)  UTILD,
DOUBLE PRECISION,dimension(npoin),intent(in)  UCONV,
DOUBLE PRECISION,dimension(npoin),intent(in)  VCONV,
DOUBLE PRECISION,dimension(npoin),intent(in)  WCONV,
DOUBLE PRECISION,intent(in)  DT,
INTEGER  NRK,
DOUBLE PRECISION,dimension(npoin),intent(in)  X,
DOUBLE PRECISION,dimension(npoin),intent(in)  Y,
DOUBLE PRECISION,dimension(nplan+1),intent(in)  ZSTAR,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(in)  Z,
INTEGER,dimension(nelem,3),intent(in)  IKLE,
INTEGER,dimension(nelem,*),intent(in)  IFABOR,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  XCONV,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  YCONV,
DOUBLE PRECISION,dimension(npoin2,nplan),intent(inout)  ZCONV,
DOUBLE PRECISION,dimension(npoin),intent(inout)  DX,
DOUBLE PRECISION,dimension(npoin),intent(inout)  DY,
DOUBLE PRECISION,dimension(npoin),intent(inout)  DZ,
DOUBLE PRECISION,dimension(npoin),intent(inout)  SHP1,
DOUBLE PRECISION,dimension(npoin),intent(inout)  SHP2,
DOUBLE PRECISION,dimension(npoin),intent(inout)  SHP3,
DOUBLE PRECISION,dimension(npoin),intent(inout)  SHZ,
INTEGER,dimension(npoin),intent(inout)  ELT,
INTEGER,dimension(npoin),intent(inout)  ETA,
INTEGER,dimension(npoin),intent(inout)  ITRAV1,
INTEGER,dimension(npoin),intent(inout)  ITRAV2,
INTEGER  NARRV,
INTEGER,intent(inout)  NPOIN2,
INTEGER,intent(inout)  NELEM,
INTEGER,intent(in)  NPLAN,
DOUBLE PRECISION,dimension(nelem),intent(in)  SURDET,
DOUBLE PRECISION,dimension(npoin),intent(inout)  TEST,
INTEGER,intent(inout)  NPOIN,
INTEGER  NCHDIM,
INTEGER  NCHARA,
INTEGER,intent(in)  NOMB,
TYPE(BIEF_MESH),intent(inout)  MESH,
INTEGER  LAST_NOMB 
)

Definition at line 1894 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::SOR3D ( DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(in)  F,
INTEGER,intent(in)  NPLAN,
INTEGER,intent(in)  NF,
DOUBLE PRECISION,dimension(nplan),intent(in)  TETA,
DOUBLE PRECISION,dimension(nf),intent(in)  FREQ,
INTEGER,intent(in)  NELEM2,
INTEGER,intent(in)  NPOIN2,
DOUBLE PRECISION,intent(in)  AT,
DOUBLE PRECISION,dimension(npoin2),intent(in)  U,
DOUBLE PRECISION,dimension(npoin2),intent(in)  V,
DOUBLE PRECISION,dimension(npoin2),intent(in)  UV,
DOUBLE PRECISION,dimension(npoin2),intent(in)  VV,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DEPTH,
LOGICAL,intent(in)  VENT,
LOGICAL,intent(in)  COURAN,
LOGICAL,intent(in)  MAREE,
CHARACTER(LEN=80),intent(in)  TITRE,
INTEGER,intent(in)  NR3D,
CHARACTER(LEN=3),intent(in)  BINR3D,
DOUBLE PRECISION,dimension(npoin2*nplan),intent(inout)  TRA01,
TYPE(BIEF_MESH),intent(in)  MESH3D 
)

Definition at line 1523 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::SPEINI ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nf)  SPEC,
DOUBLE PRECISION,dimension(nplan)  FRA,
DOUBLE PRECISION,dimension(npoin2)  UV,
DOUBLE PRECISION,dimension(npoin2)  VV,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nplan)  TETA,
DOUBLE PRECISION  GRAVIT,
DOUBLE PRECISION  FREMAX,
DOUBLE PRECISION  FETCH,
DOUBLE PRECISION  SIGMAA,
DOUBLE PRECISION  SIGMAB,
DOUBLE PRECISION  GAMMA,
DOUBLE PRECISION  FPIC,
DOUBLE PRECISION  HM0,
DOUBLE PRECISION  ALPHIL,
DOUBLE PRECISION  TETA1,
DOUBLE PRECISION  SPRED1,
DOUBLE PRECISION  TETA2,
DOUBLE PRECISION  SPRED2,
DOUBLE PRECISION  XLAMDA,
INTEGER  NPOIN2,
INTEGER  NPLAN,
INTEGER  NF,
INTEGER  INISPE,
DOUBLE PRECISION  E2FMIN,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
INTEGER  FRABI 
)

Definition at line 1545 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::SPEJON ( DOUBLE PRECISION,dimension(nf)  SPEC,
DOUBLE PRECISION,dimension(nf)  FREQ,
INTEGER  NF,
DOUBLE PRECISION  AL,
DOUBLE PRECISION  FP,
DOUBLE PRECISION  GAMMA,
DOUBLE PRECISION  SIGMAA,
DOUBLE PRECISION  SIGMAB,
DOUBLE PRECISION  DEUPI,
DOUBLE PRECISION  GRAVIT,
DOUBLE PRECISION  E2FMIN,
DOUBLE PRECISION  FPMIN 
)

Definition at line 1564 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::SPETMA ( DOUBLE PRECISION,dimension(nf)  SPEC,
DOUBLE PRECISION,dimension(nf)  FREQ,
INTEGER  NF,
DOUBLE PRECISION  AL,
DOUBLE PRECISION  FP,
DOUBLE PRECISION  GAMMA,
DOUBLE PRECISION  SIGMAA,
DOUBLE PRECISION  SIGMAB,
DOUBLE PRECISION  DEUPI,
DOUBLE PRECISION  GRAVIT,
DOUBLE PRECISION  E2FMIN,
DOUBLE PRECISION  FPMIN,
DOUBLE PRECISION  DEPTH 
)

Definition at line 1578 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::SPREAD ( DOUBLE PRECISION,dimension(npoin2)  DIRSPR,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nplan)  COSTET,
DOUBLE PRECISION,dimension(nplan)  SINTET,
INTEGER  NPLAN,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
INTEGER  NF,
INTEGER  NPOIN2,
DOUBLE PRECISION  TAILF,
DOUBLE PRECISION,dimension(npoin2)  COSMOY,
DOUBLE PRECISION,dimension(npoin2)  SINMOY,
DOUBLE PRECISION,dimension(npoin2)  VARIAN,
DOUBLE PRECISION,dimension (npoin2)  TAUXC,
DOUBLE PRECISION,dimension (npoin2)  TAUXS,
DOUBLE PRECISION,dimension (npoin2)  TAUXE 
)

Definition at line 1592 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::STRESS ( DOUBLE PRECISION,dimension(npoin2)  TAUWAV,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  TSTOT,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(npoin2)  USNEW,
DOUBLE PRECISION,dimension(npoin2)  TWNEW,
DOUBLE PRECISION,dimension(npoin2)  Z0NEW,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
DOUBLE PRECISION,dimension(nplan)  TETA,
DOUBLE PRECISION,dimension(nplan)  SINTET,
DOUBLE PRECISION,dimension(nplan)  COSTET,
DOUBLE PRECISION  ROAIR,
DOUBLE PRECISION  ROEAU,
DOUBLE PRECISION  XKAPPA,
DOUBLE PRECISION  BETAM,
DOUBLE PRECISION  DECAL,
DOUBLE PRECISION  GRAVIT,
INTEGER  NPOIN2,
INTEGER  NPLAN,
INTEGER  NF,
DOUBLE PRECISION,dimension(npoin2)  XTAUW,
DOUBLE PRECISION,dimension(npoin2)  YTAUW,
DOUBLE PRECISION,dimension(npoin2)  TAUHF 
)

Definition at line 1972 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::TAUTOT ( DOUBLE PRECISION  TAUT,
DOUBLE PRECISION  UVENT,
DOUBLE PRECISION  TAUW,
DOUBLE PRECISION  CDRAG,
DOUBLE PRECISION  ALPHA,
DOUBLE PRECISION  XKAPPA,
DOUBLE PRECISION  ZVENT,
DOUBLE PRECISION  SEUIL,
DOUBLE PRECISION  GRAVIT,
INTEGER  ITR,
INTEGER  ITRMIN,
INTEGER  ITRMAX 
)

Definition at line 1990 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::TETMOY ( DOUBLE PRECISION,dimension(npoin2)  TETAM,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nplan)  COSTET,
DOUBLE PRECISION,dimension(nplan)  SINTET,
INTEGER  NPLAN,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
INTEGER  NF,
INTEGER  NPOIN2,
DOUBLE PRECISION  TAILF,
DOUBLE PRECISION,dimension(npoin2)  COSMOY,
DOUBLE PRECISION,dimension(npoin2)  SINMOY,
DOUBLE PRECISION,dimension(npoin2)  TAUXC,
DOUBLE PRECISION,dimension(npoin2)  TAUXS 
)

Definition at line 2003 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::TOTNRJ ( DOUBLE PRECISION,dimension(npoin2)  VARIAN,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
DOUBLE PRECISION  TAILF,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2 
)

Definition at line 2019 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::TRANSF ( DOUBLE PRECISION,dimension(npoin2,nplan,nf)  FA,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  FR,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
DOUBLE PRECISION,dimension(nplan)  COSTET,
DOUBLE PRECISION,dimension(nplan)  SINTET,
DOUBLE PRECISION,dimension(npoin2)  UC,
DOUBLE PRECISION,dimension(npoin2)  VC,
DOUBLE PRECISION,dimension(npoin2,nf)  XK,
INTEGER,dimension(npoin2)  KNEW,
INTEGER,dimension(npoin2)  NEWF,
INTEGER,dimension(npoin2)  NEWF1,
DOUBLE PRECISION,dimension(npoin2)  TAUX1,
DOUBLE PRECISION,dimension(npoin2)  TAUX2,
INTEGER  NPOIN2,
INTEGER  NPLAN,
INTEGER  NF,
DOUBLE PRECISION  RAISF,
INTEGER  LT,
INTEGER  GRADEB,
INTEGER  GRAPRD 
)

Definition at line 2031 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::UPDATE_TEST ( DOUBLE PRECISION,dimension(npoint)  TEST,
TYPE(BIEF_MESH),intent(inout)  MESH,
DOUBLE PRECISION,dimension(npoint)  SHP1,
DOUBLE PRECISION,dimension(npoint)  SHP2,
DOUBLE PRECISION,dimension(npoint)  SHP3,
INTEGER  NPOINT 
)

Definition at line 1881 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::USTAR1 ( DOUBLE PRECISION,dimension(npoin2)  USTAR,
DOUBLE PRECISION,dimension(npoin2)  Z0,
DOUBLE PRECISION,dimension(npoin2)  TAUWAV,
DOUBLE PRECISION,dimension(npoin2)  UV,
DOUBLE PRECISION,dimension(npoin2)  VV,
DOUBLE PRECISION  CDRAG,
DOUBLE PRECISION  ALPHA,
DOUBLE PRECISION  XKAPPA,
DOUBLE PRECISION  ZVENT,
DOUBLE PRECISION  GRAVIT,
INTEGER  NPOIN2 
)

Definition at line 2049 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::USTAR2 ( DOUBLE PRECISION,dimension(npoin2)  USTAR,
DOUBLE PRECISION,dimension(npoin2)  UV,
DOUBLE PRECISION,dimension(npoin2)  VV,
INTEGER  NPOIN2 
)

Definition at line 2063 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::VARTEL ( DOUBLE PRECISION,dimension(npoin2)  VAR,
DOUBLE PRECISION,dimension (npoin2)  X,
DOUBLE PRECISION,dimension (npoin2)  Y,
DOUBLE PRECISION,dimension(npoin2)  DEPTH,
DOUBLE PRECISION,dimension(npoin2)  UC,
DOUBLE PRECISION,dimension(npoin2)  VC,
DOUBLE PRECISION  ZREPOS,
DOUBLE PRECISION,dimension(npoin2)  TRA01,
DOUBLE PRECISION,dimension (npoin2,nplan,nf)  F,
INTEGER  NPLAN,
INTEGER  NF,
INTEGER  NPOIN2 
)

Definition at line 2074 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::VENUTI ( DOUBLE PRECISION,dimension(npoin),intent(in)  X,
DOUBLE PRECISION,dimension(npoin),intent(in)  Y,
INTEGER,intent(in)  NPOIN,
INTEGER,intent(in)  NVEN,
CHARACTER(LEN=3),intent(in)  BINVEN,
INTEGER,dimension(nptfr,2),intent(in)  NBOR,
INTEGER,intent(in)  NPTFR,
DOUBLE PRECISION,intent(in)  AT,
DOUBLE PRECISION,intent(in)  DDC,
DOUBLE PRECISION,intent(inout)  TV1,
DOUBLE PRECISION,intent(inout)  TV2,
DOUBLE PRECISION,dimension(npoin),intent(inout)  U1,
DOUBLE PRECISION,dimension(npoin),intent(inout)  V1,
DOUBLE PRECISION,dimension(npoin),intent(inout)  U2,
DOUBLE PRECISION,dimension(npoin),intent(inout)  V2 
)

Definition at line 2088 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::VITFON ( DOUBLE PRECISION,dimension(npoin2),intent(inout)  UWBM,
DOUBLE PRECISION,dimension(npoin2,nplan,nf),intent(in)  F,
DOUBLE PRECISION,dimension(npoin2,nf),intent(in)  XK,
DOUBLE PRECISION,dimension(npoin2),intent(in)  DEPTH,
DOUBLE PRECISION,dimension(nf),intent(in)  DFREQ,
INTEGER,intent(in)  NF,
INTEGER,intent(in)  NPOIN2,
INTEGER,intent(in)  NPLAN,
DOUBLE PRECISION,dimension(npoin2),intent(inout)  BETA 
)

Definition at line 2105 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::WAC ( INTEGER,intent(in)  PART,
TYPE(BIEF_OBJ),intent(in)  U_TEL,
TYPE(BIEF_OBJ),intent(in)  V_TEL,
TYPE(BIEF_OBJ),intent(in)  H_TEL,
TYPE(BIEF_OBJ),intent(inout)  FX_WAC,
TYPE(BIEF_OBJ),intent(inout)  FY_WAC,
TYPE(BIEF_OBJ),intent(inout)  UV_WAC,
TYPE(BIEF_OBJ),intent(inout)  VV_WAC,
CHARACTER(LEN=24),intent(in)  CODE,
DOUBLE PRECISION,intent(in)  T_TEL,
DOUBLE PRECISION,intent(in)  DT_TEL,
INTEGER,intent(in)  NIT_TEL,
INTEGER,intent(in)  PERCOU_WAC,
TYPE(BIEF_OBJ),intent(inout)  DIRMOY_TEL,
TYPE(BIEF_OBJ),intent(inout)  HM0_TEL,
TYPE(BIEF_OBJ),intent(inout)  TPR5_TEL,
TYPE(BIEF_OBJ),intent(inout)  ORBVEL_TEL 
)

Definition at line 2118 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::WNSCOU ( DOUBLE PRECISION  CK2,
DOUBLE PRECISION  FREQ,
DOUBLE PRECISION  DEPTH 
)

Definition at line 2137 of file interface_tomawac.f.

subroutine INTERFACE_TOMAWAC::interface::WPOWER ( DOUBLE PRECISION,dimension(npoin2)  POWER,
DOUBLE PRECISION,dimension(npoin2,nplan,nf)  F,
DOUBLE PRECISION,dimension(nf)  FREQ,
DOUBLE PRECISION,dimension(nf)  DFREQ,
DOUBLE PRECISION,dimension(npoin2,nf)  CG,
DOUBLE PRECISION  TAILF,
INTEGER  NF,
INTEGER  NPLAN,
INTEGER  NPOIN2,
DOUBLE PRECISION  ROEAU 
)

Definition at line 2147 of file interface_tomawac.f.


Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0