...
Code Block |
---|
INTEGER INTEGER KSEC0(2) INTEGER KSEC1(1024) INTEGER KSEC2(1024) INTEGER KSEC3(2) INTEGER KSEC4(512) INTEGER KLENP, KLENG, KWORD, KRET INTEGER KGRIB(*y) C REAL PSEC2(512) REAL PSEC3(2) REAL PSEC4(*y) C CHARACTER*1 HOPER : : CALL GRIBEX(KSEC0,KSEC1,KSEC2,PSEC2,KSEC3,PSEC3,KSEC4, X PSEC4,KLENP,KGRIB,KLENG,KWORD,HOPER,KRET) |
For more info see: KSEC0, KSEC1, KSEC2, KSEC3, KSEC4, PSEC2,PSEC3, PSEC4