Searched defs:PLOTUNIV (Results 1 – 1 of 1) sorted by relevance
| /dports/science/latte/LATTE-1.2.2/src/ |
| H A D | plot_univ.F90 | 22 SUBROUTINE PLOTUNIV subroutine
32 INTEGER :: IGS, I, J local
33 INTEGER, PARAMETER :: NOSAMPLES = 1001
34 REAL(LATTEPREC), ALLOCATABLE :: INTVALUE(:), DINTVALUE(:)
35 REAL(LATTEPREC) :: MAGR, TMP, DTMP, POLYNOM, DPOLYNOM
36 REAL(LATTEPREC) :: RMOD, RMINUSR1, MAXCUT
152 10 FORMAT(F12.6, 1X, 500(G12.6, 1X))
176 END SUBROUTINE PLOTUNIV argument
|