[Fortran] 纯文本查看 复制代码
! CHARACTER(len=80) title
Character *80 title
Integer iopt(mopt), itrans(mopt), isubopt(mopt), nprior
Real iapri(mpar)
Character optinv(mopt)
Common /options/iopt, itrans, isubopt, optinv
Integer nparm, q, qin, & ! pointers from parm 2 phy and lay
npopin
! present dimensions
Integer par2phy(mpar), par2lay(mpar), par3(mpar)
Integer ndigit(mpar), nbit(mpar)
Real fmin(mpar), fmax(mpar) ! bounds and possible val
Real f(mpar), df(mpar), xstar(mpar), xprior(mpar)
! CHARACTER(len=40) phystxt(mphys),phystxt2(mphys)
Character *40 phystxt(mphys), phystxt2(mphys)
Common /optpar/title, nparm, q, iapri, nprior, par2phy, par2lay, par3, phystxt, phystxt2, ndigit, nbit, qin, npopin, fmin, fmax, f, df, xstar, xprior
