| 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 |