C This routine is currently not used | |
subroutine allocdyn !Allocate dynamic arrays. | |
include 'params.inc' | |
include 'globals.inc' | |
include 'geomz.inc' | |
include 'randseed.inc' | |
c allocate | |
c . mtl, dns, tmp, atrat, sig, scrat, sigtot, sigth, opcv | |
c allocate | |
c . ng_incr,g_rr,g_zz,ng_itype,g_bom,g_sqm,g_ximp,ng_mid, | |
c . g_volcl,g_ximpl | |
c allocate | |
c . seedarray | |
return | |
end |