V3FIT
allocate_angles.f
1  SUBROUTINE allocate_angles
2  USE parambs
3  USE vmec0
4  IMPLICIT NONE
5  INTEGER :: istat
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)
13 
14  IF (istat .ne. 0) stop 'allocation error in allocate_angles'
15 
16  END SUBROUTINE allocate_angles