Searched refs:AMPLtab (Results 1 – 5 of 5) sorted by relevance
93 allocate (fstrHEAT%AMPLtab (fstrHEAT%AMPLITUDEtot) )97 fstrHEAT%AMPLtab = 0106 fstrHEAT%AMPLtab(i) = nn134 nn = fstrHEAT%AMPLtab(i)
24 nn = fstrHEAT%AMPLtab(id)
285 nn = fstrHEAT%AMPLtab(i)
194 write(*,*) 'AMPLtab ', h%AMPLtab
420 integer(kind=kint), pointer :: AMPLtab(:) component720 nullify( H%AMPLtab )