[Fortran] 纯文本查看 复制代码
equivalence &
& (iselevchk0(1,1) ,ia(1,125)), &
& (isccflflg1(1,1) ,ia(1,126)), &
& (isnpccflflg2(1,1) ,ia(1,127)), &
& (isjunfloregnum38(1,1) ,ia(1,128)), &
& (toface911(1,1) ,ia(1,129)), &
& (fromface1214(1,1) ,ia(1,130)), &
& (isdonprespvwrk15(1,1) ,ia(1,131)), &
& (iswatpackjunflg16(1,1) ,ia(1,132)), &
& (isstrtchjunflg17(1,1) ,ia(1,133)), &
& (iseccmixflg18(1,1) ,ia(1,134)), &
& (iseccmixflg19(1,1) ,ia(1,135)), &
& (isdbgprntflg20(1,1) ,ia(1,136)), &
& (iswatpackflg21(1,1) ,ia(1,137)), &
& (isgodunovflg22(1,1) ,ia(1,138)), &
& (isgodunovflg23(1,1) ,ia(1,139)), &
& (isinithsemod24(1,1) ,ia(1,140)), &
& (isinithsemod25(1,1) ,ia(1,141)), &
& (islevelmod27(1,1) ,ia(1,142)), &
& (isvapcontphasejun28(1,1) ,ia(1,143)), &
& (isnolosscoefabrjun29(1,1) ,ia(1,144)), &
& (isliqentrain30(1,1) ,ia(1,145))