1 SUBROUTINE allocate_angles
6 ALLOCATE(bfield(nthetah,nzetah), gsqrt_b(nthetah,nzetah),
7 1 sinmi(-mbuse:mbuse,nthetah), sinnj(0:nbuse,nzetah),
8 2 cosmi(-mbuse:mbuse,nthetah), cosnj(0:nbuse,nzetah),
9 3 theta(nthetah), zetah(nzetah),
10 4 sinmim(-mbuse:mbuse,nthetahm), sinnjm(0:nbuse,nzetahm),
11 5 cosmim(-mbuse:mbuse,nthetahm), cosnjm(0:nbuse,nzetahm),
12 6 b2obm(nthetah,nzetah), bfieldm(nthetahm,nzetahm), stat=istat)
14 IF (istat .ne. 0) stop
'allocation error in allocate_angles'
16 END SUBROUTINE allocate_angles