7 real,
parameter :: h1=1.e0, &
129 avgefi=(efimn+1.e0)*.5e0, &
136 slopbl=(dspbfl-dspbsl)/(h1-efimn), &
137 slop0l=(dsp0fl-dsp0sl)/(h1-efimn), &
138 sloptl=(dsptfl-dsptsl)/(h1-efimn), &
139 slopbs=(dspbfs-dspbss)/(h1-efimn), &
140 slop0s=(dsp0fs-dsp0ss)/(h1-efimn), &
141 slopts=(dsptfs-dsptss)/(h1-efimn), &
142 slope=(h1 -efmnt)/(h1-efimn)
144 a23m4l=a2*(a3-a4)*elwv, &
146 cprlg=cp/(row*g*elwv), &
148 logical,
parameter :: &
152 end module cuparm_mod