PARAMETER ( HP=6.6262E-27, BOLT=1.3806E-16 & , CL=2.997925E10, UMA=1.660E-24, ELM=0.910956E-27 ) PARAMETER ( C4=2.0*HP/(CL*CL) ) PARAMETER ( RSOL=696000. ) !--------------------------------------------------------------------- PARAMETER ( NPOD=5, NPSI=7 ) PARAMETER ( NR = 12 * NPOD + 1 ) PARAMETER ( NZETA=4, NTHET=4 )