Page History

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)