1 module timedata 2 3 integer ntspts, freq, iterat, varcod 4 integer iblkts 5 real*8 tolpt 6 logical exts 7 8 integer, allocatable :: statptts(:,:) 9 real*8, allocatable :: ptts(:,:) 10 real*8, allocatable :: parptts(:,:) 11 real*8, allocatable :: varts(:,:) 12 13 end module 14 15 module pp_data 16 17 integer numppnodes, ppfreq 18 19 integer, allocatable :: ppnodes(:,:) 20 21 end module 22 23 24c----------------------------------------------------------------------- 25c allocate the arrays 26c----------------------------------------------------------------------- 27 28 29 subroutine sTD 30 31 use timedata 32 include "common.h" 33 34 allocate (statptts(ntspts,2)) 35 allocate (ptts(ntspts,nsd)) 36 allocate (parptts(ntspts,nsd)) 37 allocate (varts(ntspts,ndof)) 38 39 return 40 end 41c----------------------------------------------------------------------- 42c delete the arrays 43c----------------------------------------------------------------------- 44 45 46 subroutine dTD 47 48 use timedata 49 50 deallocate (ptts) 51 deallocate (varts) 52 53 return 54 end 55