gftool/gfopen.F:11:
      SUBROUTINE GFOPEN
     O         ( IFILE , IERR  ,
     I           HFILX , IFILED, HACT  , HFORM   )
      INTEGER    IFILE                       !" ֹ
      INTEGER    IERR                        !" 顼⣰
      CHARACTER  HFILX *(*)                  !" ե̾
      INTEGER    IFILED                      !" ǥեֹ
      CHARACTER  HACT  *(*)                  !" ɤߡ
      CHARACTER  HFORM *(*)                  !" եޥå
 
gftool/gfopen.F:127:
      SUBROUTINE GFCLSE
     M         ( IFILE  )
      INTEGER    IFILE                    !" ֹ
 
gftool/gfqadj.F:9:
      SUBROUTINE GFQADJ
     I         ( IXDIM , IYDIM , IZDIM )
      INTEGER    IXDIM                       !" 1ˡ
      INTEGER    IYDIM                       !" 2ˡ
      INTEGER    IZDIM                       !" 3ˡ
 
gftool/gfqadj.F:29:
      ENTRY      GFSADJ
     I         ( IXDIM , IYDIM , IZDIM )
      INTEGER    IXDIM                       !" 1ˡ
      INTEGER    IYDIM                       !" 2ˡ
      INTEGER    IZDIM                       !" 3ˡ
 
gftool/gfrdts.F:9:
      SUBROUTINE GFRDTS
     O         ( HHEAD , GDATA , IEOD  ,
     O           IT    , IDATE , IDNUM , ITDUR ,
     I           HPSEL , HSEL  , ISEL  ,
     I           IFILE , IOMODE                 )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      REAL       GDATA ( * )                 !" ǡ
      INTEGER    IEOD                        !" ǡͭ ̵
      INTEGER    IT                          !" ̤
      INTEGER    IDATE ( * )                 !" ǯʬ
      INTEGER    IDNUM                       !" ǡֹ
      INTEGER    ITDUR                       !" ɽ
      CHARACTER  HPSEL *(*)                  !" 򤹤
      CHARACTER  HSEL  *(*)                  !" 򤹤ǡ(ʸ
      INTEGER    IFILE                       !" ϥեֹ
      INTEGER    IOMODE                      !" ϥ⡼
 
gftool/gfrdts.F:62:
      ENTRY      GFWTTS
     I         ( HHEAD , GDATA ,
     I           IT    , IDATE , IDNUM , ITDUR ,
     I           JFILE , IOMODE, NOEND           )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      REAL       GDATA ( * )                 !" ǡ
      INTEGER    IT                          !" ̤
      INTEGER    IDATE ( * )                 !" ǯʬ
      INTEGER    IDNUM                       !" ǡֹ
      INTEGER    ITDUR                       !" ɽ
      INTEGER    JFILE                       !" ϥեֹ
      INTEGER    IOMODE                      !" ϥ⡼
      INTEGER    NOEND                       !" ENDFILEֳ
 
gftool/gfread.F:10:
      SUBROUTINE GFREAD
     O         ( HHEAD , GDATA , IEOD  ,
     I           IFILE , MODE           )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       GDATA ( * )             !" ǡ
      INTEGER    IEOD                    !" ǡ¸ߥե饰
      INTEGER    IFILE                   !" ֹ
      INTEGER    MODE                    !" ⡼(1ʤɽON)
 
gftool/gfread.F:30:
      SUBROUTINE GFRDSL
     O         ( HHEAD , GDATA , IEOD  ,
     I           HPSEL , HSEL  , ISEL  ,
     I           IFILE , MODE           )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       GDATA ( * )             !" ǡ
      INTEGER    IEOD                    !" ǡ¸ߥե饰
      CHARACTER  HPSEL *(*)              !" 򤹤
      CHARACTER  HSEL  *(*)              !" 򤹤ǡ(ʸ)
      INTEGER    IFILE                   !" եֹ
      INTEGER    MODE                    !" ⡼(1ʤɽON)
 
gftool/gfread.F:181:
      ENTRY      GFRDHD
     O         ( HHEAD , IEOD  ,
     I           IFILE , MODE   )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      INTEGER    IEOD                    !" ǡ¸ߥե饰
      INTEGER    IFILE                   !" եֹ
      INTEGER    MODE                    !" ⡼(1ʤɽON)
 
gftool/gfread.F:242:
      SUBROUTINE GFREDZ
     O         ( GDATA , IEOD  ,
     I           IFILE , IJKDIM )
      REAL       GDATA ( IJKDIM )              !" ǡ
      INTEGER    IFILE                         !" եֹ
 
gftool/gfropn.F:11:
      SUBROUTINE GFROPN
     M         ( IFILE ,
     I           HFILE  )
      INTEGER    IFILE                    !" ֹ
      CHARACTER  HFILE*(*)                !" ե̾
 
gftool/gfropn.F:32:
      SUBROUTINE GFWOPN
     M         ( IFILE ,
     I           HFILE  )
      INTEGER    IFILE                    !" ֹ
      CHARACTER  HFILE*(*)                !" ե̾
 
gftool/gfropn.F:53:
      SUBROUTINE GFAOPN
     M         ( IFILE ,
     I           HFILE  )
      INTEGER    IFILE                    !" ֹ
      CHARACTER  HFILE*(*)                !" ե̾
 
gftool/gfropn.F:74:
      SUBROUTINE GFOOPN
     M         ( IFILE ,
     I           HFILX , OAPPND  )
      INTEGER    IFILE                    !" ֹ
      CHARACTER  HFILX*(*)                !" ե̾
      LOGICAL    OAPPND                   !" ɲ?
 
gftool/gfropq.F:10:
      SUBROUTINE GFROPQ
     O         ( IFILE ,
     I           HINQ   )
      INTEGER    IFILE                    !" ֹ
      CHARACTER  HINQ  *(*)
 
gftool/gfropq.F:38:
      ENTRY      GFWOPQ
     O         ( IFILE ,
     I           HINQ   )
      INTEGER    IFILE                    !" ֹ
      CHARACTER  HINQ  *(*)
 
gftool/gfropq.F:54:
      ENTRY      GFAOPQ
     O         ( IFILE ,
     I           HINQ   )
      INTEGER    IFILE                    !" ֹ
      CHARACTER  HINQ  *(*)
 
gftool/gfropq.F:70:
      ENTRY      GFOOPQ
     M         ( IFILE ,
     I           HINQ    )
      INTEGER    IFILE                    !" ֹ
      CHARACTER  HINQ  *(*)
 
gftool/gfwrit.F:10:
      SUBROUTINE GFWRIT
     I         ( HHEAD , GDATA ,
     I           JFILE , MODE  , NOEND  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       GDATA ( * )             !" ǡ
      INTEGER    JFILE                   !" ֹ
      INTEGER    MODE                    !" ⡼(1ʤɽON)
      INTEGER    NOEND                   !" ENDFILEδֳ
 
gftool/gfwrit.F:122:
      SUBROUTINE GFWRTZ
     I         ( GDATA ,
     I           JFILE , IJKDIM )
      REAL       GDATA ( IJKDIM )              !" ǡ
      INTEGER    JFILE                         !" եֹ
 
ggtool/ggaxes.F:9:
      SUBROUTINE GGAXES
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" إå
 
ggtool/ggaxis.F:9:
      SUBROUTINE GGAXIS
     I         ( HHEAD , HPOS   )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      CHARACTER  HPOS *(*)               !" åȤ뼴 ('X' or 'Y')
 
ggtool/ggaxix.F:9:
      SUBROUTINE GGAXIX
     I         ( HHEAD , HPOS  ,
     I           DMIN  , DMAX  , DIVS  , DIVL  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      CHARACTER  HPOS *(*)               !" åȤ뼴 ('X' or 'Y')
 
ggtool/ggaxsz.F:9:
      SUBROUTINE GGAXSZ
     I         ( HHEAD , AXISZ , HPOS  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       AXISZ ( * )             !" ʻҰ
      CHARACTER  HPOS *(*)               !" åȤ뼴 ('X' or 'Y')
 
ggtool/ggaxsz.F:199:
      ENTRY      GGRANG
     I         ( HHEAD , AXISZ , HPOS  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       AXISZ ( * )             !" ʻҰ
      CHARACTER  HPOS *(*)               !" åȤ뼴 ('X' or 'Y')
 
ggtool/ggaxsz.F:217:
      ENTRY      GGAXRR( HPOS )
      CHARACTER  HPOS *(*)               !" åȤ뼴 ('X' or 'Y')
 
ggtool/ggaxsz.F:240:
      SUBROUTINE GGAXRS
 
ggtool/ggaxsz.F:251:
      SUBROUTINE GGAXLZ ( HPOS )
      CHARACTER  HPOS   * 1
 
ggtool/ggcntr.F:9:
      SUBROUTINE GGCNTR
     I         ( HHEAD, GDATA )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       GDATA ( * )             !" ǡ
 
ggtool/ggcoal.F:9:
      SUBROUTINE GGCOAL
 
ggtool/ggcstl.F:9:
      SUBROUTINE GGCSTL
 
ggtool/ggcton.F:9:
      SUBROUTINE GGCTON
     I         ( HHEAD , GDATA  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       GDATA ( * )             !" ǡ
 
ggtool/ggcurv.F:9:
      SUBROUTINE GGCURV
     I         ( HHEAD , GDATA , HPOS  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       GDATA ( * )             !" ǡ
      CHARACTER  HPOS       *(*)         !" ǡ ('X' or 'Y')
 
ggtool/gglay1.F:9:
      SUBROUTINE GGLAY1
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" إå
 
ggtool/gglay2.F:9:
      SUBROUTINE GGLAY2
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" إå
 
ggtool/gglay3.F:9:
      SUBROUTINE GGLAY3
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" إå
 
ggtool/gglint.F:9:
      SUBROUTINE GGLINT
     I         ( HHEAD , HTYPE )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      CHARACTER  HTYPE      *(*)         !" (CURV/MARK)
 
ggtool/gglint.F:69:
      ENTRY      GGLTRS
 
ggtool/ggmark.F:9:
      SUBROUTINE GGMARK
     I         ( HHEAD , GDATA , HPOS  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       GDATA ( * )             !" ǡ
      CHARACTER  HPOS       *(*)         !" ǡ ('X' or 'Y')
 
ggtool/ggopen.F:9:
      SUBROUTINE GGOPEN
     I         ( IWS   )
      INTEGER    IWS                     !" ơNo.
 
ggtool/ggopen.F:24:
      SUBROUTINE GGCLSE
 
ggtool/ggpdsc.F:9:
      SUBROUTINE GGPDSC
     I         ( HHEAD, HP   , VX   , VY    )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      CHARACTER  HP         *(*)             !" һҤ̾
      REAL       VX                          !" Xɸ(NDC)
      REAL       VY                          !" Yɸ(NDC)
 
ggtool/ggpdsc.F:33:
      ENTRY      GGCDSC
     I         ( HHEAD, HP   , VX   , VY    )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      CHARACTER  HP         *(*)             !" һҤ̾
      REAL       VX                          !" Xɸ(NDC)
      REAL       VY                          !" Yɸ(NDC)
 
ggtool/ggpget.F:9:
      SUBROUTINE GGPGET
     I         ( HP,
     O           IPARA )
      CHARACTER HP   *(*)                !" ѥ᡼̾
 
ggtool/ggpget.F:96:
      ENTRY GGPSET
     I         ( HP, IPARA )
      CHARACTER HP   *(*)                !" ѥ᡼̾
 
ggtool/ggpget.F:114:
      ENTRY GGCGET
     I         ( HP,
     O           HPARA )
      CHARACTER HP   *(*)                !" ѥ᡼̾
      CHARACTER HPARA*(*)                !" ѥ᡼ơʸ
 
ggtool/ggpget.F:133:
      ENTRY GGCSET
     I         ( HP, HPARA )
      CHARACTER HP   *(*)                !" ѥ᡼̾
      CHARACTER HPARA*(*)                !" ѥ᡼ơʸ
 
ggtool/ggston.F:9:
      SUBROUTINE GGSTON
     I         ( HHEAD , GDATA  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       GDATA ( * )             !" ǡ
 
ggtool/ggtone.F:9:
      SUBROUTINE GGTONE
     I         ( HHEAD , GDATA ,
     I           TONL  , ITON  , NTON  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       GDATA ( * )             !" ǡ
      REAL       TONL  ( NTON+1 )        !" ȡ󶭳
      INTEGER    ITON  ( NTON )          !" ȡֹ
 
ggtool/ggtons.F:10:
      SUBROUTINE GGTONS
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" إå
 
ggtool/ggvect.F:10:
      SUBROUTINE GGVECT
     I         ( HHEADU, GDATAU,
     I           HHEADV, GDATAV )
      CHARACTER  HHEADU ( * )*(*)        !" إå(uʬ)
      REAL       GDATAU ( * )            !" ǡ(uʬ)
      CHARACTER  HHEADV ( * )*(*)        !" إå(vʬ)
      REAL       GDATAV ( * )            !" ǡ(vʬ)
 
ghtool/ghcgts.F:9:
      SUBROUTINE GHCGTS
     I         ( HHEAD, HP    ,
     O           HX            )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      CHARACTER  HP         *(*)         !" إå
      CHARACTER  HX         *(*)         !" һҤơʸ
 
ghtool/ghcgts.F:59:
      ENTRY      GHCSTS
     I         ( HHEAD, HP    ,
     I           HX            )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      CHARACTER  HP         *(*)         !" إå
      CHARACTER  HX         *(*)         !" һҤơʸ
 
ghtool/ghcopy.F:9:
      SUBROUTINE GHCOPY
     I         ( HHEAD ,
     O           HHEADO )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      CHARACTER  HHEADO( * )*(*)         !" إå()
 
ghtool/ghcsq1.F:9:
      SUBROUTINE GHCSQ1
     I         ( HH1   , HP    , IC    ,
     M           HHO                    )
      CHARACTER  HH1  ( * )*(*)
      CHARACTER  HP        *(*)
      INTEGER    IC                      !" ֹ
      CHARACTER  HHO  ( * )*(*)
 
ghtool/ghcsq2.F:9:
      SUBROUTINE GHCSQ2
     I         ( HH1   , HH2   , HP    , IC    ,
     M           HHO                            )
      CHARACTER  HH1  ( * )*(*)
      CHARACTER  HH2  ( * )*(*)
      CHARACTER  HP        *(*)
      INTEGER    IC                      !" ֹ
      CHARACTER  HHO  ( * )*(*)
 
ghtool/gheset.F:9:
      SUBROUTINE GHESET
     M         ( HHEAD ,
     I           HEDIT , HETTL, IENUM  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      CHARACTER  HEDIT *(*)              !" Խά
      CHARACTER  HETTL *(*)              !" Խȥ
 
ghtool/gheset.F:40:
      SUBROUTINE GHEADD
     M         ( HHEAD ,
     I           HEDIT , HETTL )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      CHARACTER  HEDIT *(*)              !" Խά
      CHARACTER  HETTL *(*)              !" Խȥ
 
ghtool/gheset.F:69:
      ENTRY      GHERST
     M         ( HHEAD ,
     I           HEDIT , HETTL )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      CHARACTER  HEDIT *(*)              !" Խά
      CHARACTER  HETTL *(*)              !" Խȥ
 
ghtool/ghpaca.F:9:
      SUBROUTINE GHPACA
     O         ( HHEADA,
     I           HKIND , HITEM ,
     I           HTITL , HUNIT ,
     I           IXDIM ,
     I           HDFMT , VMISS ,
     I           DMIN  , DMAX  , DIVS  , DIVL  , ISTYP  )
      CHARACTER  HHEADA ( * )*(*)        !" إå
      CHARACTER  HKIND       *(*)        !" ʻҾμ
      CHARACTER  HITEM       *(*)        !" ʻҼ̾
      CHARACTER  HTITL       *(*)        !" ȥ
      CHARACTER  HUNIT       *(*)        !" ñ
      INTEGER    IXDIM                   !" ʻҿ
      CHARACTER  HDFMT       *(*)        !" ǡեޥå
      REAL       VMISS                   !" »ͤ
      REAL       DMIN                    !" (Ǿ)
      REAL       DMAX                    !" ()
      REAL       DIVS                    !" ֳ()
      REAL       DIVL                    !" ֳ()
      INTEGER    ISTYP                   !" 󥰥
 
ghtool/ghpack.F:9:
      SUBROUTINE GHPACK
     O         ( HHEAD ,
     I           HDSET , HITEM , IFNUM , IDNUM ,
     I           HTITL , HUNIT ,
     I           ITIME , HDATE , HUTIM , ITDUR ,
     I           HAITM1, IASTR1, IAEND1,
     I           HAITM2, IASTR2, IAEND2,
     I           HAITM3, IASTR3, IAEND3,
     I           HDFMT , VMISS ,
     I           DMIN  , DMAX  , DIVS  , DIVL  , ISTYP ,
     I           HCDATE, HCSIGN                         )
      CHARACTER  HHEAD ( * )*(*)
      CHARACTER  HDSET  *(*)             !" ǡå̾
      CHARACTER  HITEM  *(*)             !" ̾
      INTEGER    IFNUM                   !" եֹ
      INTEGER    IDNUM                   !" ǡֹ
      CHARACTER  HTITL  *(*)             !" ȥ
      CHARACTER  HUNIT  *(*)             !" ñ
      INTEGER    ITIME                   !" (̤)
      CHARACTER  HDATE  *(*)             !" (yyyymmddhhmmss)
      CHARACTER  HUTIM  *(*)             !" ñ
      INTEGER    ITDUR                   !" ɽ
      CHARACTER  HAITM1 *(*)             !" 1γʻ̾
      INTEGER    IASTR1                  !" 1γʻһϤ
      INTEGER    IAEND1                  !" 1γʻҽ
      CHARACTER  HAITM2 *(*)             !" 2γʻ̾
      INTEGER    IASTR2                  !" 2γʻһϤ
      INTEGER    IAEND2                  !" 2γʻҽ
      CHARACTER  HAITM3 *(*)             !" 3γʻ̾
      INTEGER    IASTR3                  !" 3γʻһϤ
      INTEGER    IAEND3                  !" 3γʻҽ
      CHARACTER  HDFMT  *(*)             !" ǡեޥå
      REAL       VMISS                   !" »ͤ
      REAL       DMIN                    !" (Ǿ)
      REAL       DMAX                    !" ()
      REAL       DIVS                    !" ֳ()
      REAL       DIVL                    !" ֳ()
      INTEGER    ISTYP                   !" 󥰥
      CHARACTER  HCDATE *(*)             !" ǡ
      CHARACTER  HCSIGN *(*)             !" ǡ
 
ghtool/ghpack.F:139:
      ENTRY      GHUPAC
     I         ( HHEAD ,
     O           HDSET , HITEM , IFNUM , IDNUM ,
     O           HTITL , HUNIT ,
     O           ITIME , HDATE , HUTIM , ITDUR ,
     O           HAITM1, IASTR1, IAEND1,
     O           HAITM2, IASTR2, IAEND2,
     O           HAITM3, IASTR3, IAEND3,
     O           HDFMT , VMISS ,
     O           DMIN  , DMAX  , DIVS  , DIVL  , ISTYP ,
     O           HCDATE, HCSIGN, HMDATE, HMSIGN         )
      CHARACTER  HHEAD ( * )*(*)
      CHARACTER  HDSET  *(*)             !" ǡå̾
      CHARACTER  HITEM  *(*)             !" ̾
      INTEGER    IFNUM                   !" եֹ
      INTEGER    IDNUM                   !" ǡֹ
      CHARACTER  HTITL  *(*)             !" ȥ
      CHARACTER  HUNIT  *(*)             !" ñ
      INTEGER    ITIME                   !" (̤)
      CHARACTER  HDATE  *(*)             !" (yyyymmddhhmmss)
      CHARACTER  HUTIM  *(*)             !" ñ
      INTEGER    ITDUR                   !" ɽ
      CHARACTER  HAITM1 *(*)             !" 1γʻ̾
      INTEGER    IASTR1                  !" 1γʻһϤ
      INTEGER    IAEND1                  !" 1γʻҽ
      CHARACTER  HAITM2 *(*)             !" 2γʻ̾
      INTEGER    IASTR2                  !" 2γʻһϤ
      INTEGER    IAEND2                  !" 2γʻҽ
      CHARACTER  HAITM3 *(*)             !" 3γʻ̾
      INTEGER    IASTR3                  !" 3γʻһϤ
      INTEGER    IAEND3                  !" 3γʻҽ
      CHARACTER  HDFMT  *(*)             !" ǡեޥå
      REAL       VMISS                   !" »ͤ
      REAL       DMIN                    !" (Ǿ)
      REAL       DMAX                    !" ()
      REAL       DIVS                    !" ֳ()
      REAL       DIVL                    !" ֳ()
      INTEGER    ISTYP                   !" 󥰥
      CHARACTER  HCDATE *(*)             !" ǡ
      CHARACTER  HCSIGN *(*)             !" ǡ
      CHARACTER  HMDATE *(*)             !" ǡѹ
      CHARACTER  HMSIGN *(*)             !" ǡѹ
 
ghtool/ghpget.F:9:
      SUBROUTINE GHPGET
     I         ( HHEAD , HP    ,
     I           IX              )
 
ghtool/ghpget.F:157:
      ENTRY GHPSET
     M         ( HHEAD ,
     I           HP    , IX     )
 
ghtool/ghpget.F:196:
      ENTRY      GHCGET
     I         ( HHEAD , HP    ,
     I           HX              )
 
ghtool/ghpget.F:231:
      ENTRY GHCSET
     M         ( HHEAD ,
     I           HP    , HX     )
 
ghtool/ghpget.F:254:
      ENTRY GHPINQ
     I         ( HP    ,
     O           HFM    )
 
ghtool/ghpget.F:270:
      ENTRY GHPCLR
     O         ( HHEAD  )
 
ghtool/ghpget.F:289:
      ENTRY GHNINQ
     I         ( IZ    ,
     O           HP      )
 
ghtool/ghptrn.F:10:
      SUBROUTINE GHPTRN
     M         ( HHEAD  )
 
ghtool/ghqenm.F:9:
      SUBROUTINE GHQENM
     I         ( HHEAD ,
     O           IENUM )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      INTEGER    IENUM                   !" ѤԽһҤο
 
ghtool/ghrsgp.F:9:
      SUBROUTINE GHRSGP
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" إå
 
gmtool/gmpget.F:9:
      SUBROUTINE GMPGET
     I         ( HP,
     O           IPARA )
      CHARACTER HP   *(*)                !" ѥ᡼̾
 
gmtool/gmpget.F:45:
      ENTRY GMPSET
     I         ( HP, IPARA )
      CHARACTER HP   *(*)                !" ѥ᡼̾
 
gmtool/gmsize.F:9:
      SUBROUTINE GMSIZE
     I         ( ISIZE )
      INTEGER    ISIZE                   !" 󥵥(/GMWRK/)
 
gmtool/gmsize.F:21:
      SUBROUTINE GMCSIZ
     I         ( HHEAD )
      CHARACTER  HHEAD( * )*(*)              !" إå
 
gptool/gpasps.F:9:
      SUBROUTINE GPASPS
     I         ( IMAX  , JMAX  , KMAX  , ER    ,
     O           PNM   , DPNM  , TRIGS , IFAX  ,
     O           NMO   , GW    , COSLAT,
     O           LMAX  , MMAX  , NMAX  , MINT  ,
     O           NMDIM , JMXHF ,
     W           QPNM  , QDPNM , QGW   , QSINLA          )
      INTEGER    IFAX  ( * )                 !" IMAX ΰʬ
      INTEGER    JMAX
      REAL       ER                          !" ϵȾ
      REAL       PNM   ( * )                 !" nm 른ɥ
      REAL       DPNM  ( * )                 !" nm ʬ
      REAL       TRIGS ( * )                 !" Ѵؿɽ
      INTEGER    NMO   ( * )                 !" ڥȥź
      REAL       GW    ( * )                 !" ٽ
      REAL       COSLAT( * )                 !" cos()
      REAL*8     QPNM  ( * )                 !" nm 른ɥ
      REAL*8     QDPNM ( * )                 !" nm ʬ
      REAL*8     QGW   ( * )                 !" ٽ 
      REAL*8     QSINLA( * )                 !" sin() (
 
gptool/gpasps.F:117:
      ENTRY      GPASPW
     I         ( IMAXDW, JMAXDW, KMAXDW )
 
gptool/gpaxdf.F:10:
      SUBROUTINE GPAXDF
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpaxdf.F:116:
      SUBROUTINE GMAXDF
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpaxdv.F:10:
      SUBROUTINE GPAXDV
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpaxdv.F:111:
      SUBROUTINE GMAXDV
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpaydf.F:10:
      SUBROUTINE GPAYDF
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpaydf.F:139:
      SUBROUTINE GMAYDF
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpaydv.F:10:
      SUBROUTINE GPAYDV
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpaydv.F:131:
      SUBROUTINE GMAYDV
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpcal1.F:9:
      SUBROUTINE GPCAL1
     I         ( GESUBR,
     I           HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpcal1.F:56:
      SUBROUTINE GMCAL1
     I         ( GESUBR,
     M           HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpcal2.F:9:
      SUBROUTINE GPCAL2
     I         ( GESUBR,
     I           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpcal2.F:66:
      SUBROUTINE GMCAL2
     I         ( GESUBR,
     M           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpcal3.F:9:
      SUBROUTINE GPCAL3
     I         ( GESUBR,
     I           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HHEAD3, GDATA3,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HHEAD3 ( * )*(*)        !" إå(3)
      REAL       GDATA3 ( * )            !" ǡ(3)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpcal3.F:76:
      SUBROUTINE GMCAL3
     I         ( GESUBR,
     M           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HHEAD3, GDATA3,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HHEAD3 ( * )*(*)        !" إå(3)
      REAL       GDATA3 ( * )            !" ǡ(3)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpcal4.F:9:
      SUBROUTINE GPCAL4
     I         ( GESUBR,
     I           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HHEAD3, GDATA3,
     I           HHEAD4, GDATA4,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HHEAD3 ( * )*(*)        !" إå(3)
      REAL       GDATA3 ( * )            !" ǡ(3)
      CHARACTER  HHEAD4 ( * )*(*)        !" إå(4)
      REAL       GDATA4 ( * )            !" ǡ(4)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpcal4.F:86:
      SUBROUTINE GMCAL4
     I         ( GESUBR,
     M           HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HHEAD3, GDATA3,
     I           HHEAD4, GDATA4,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HHEAD3 ( * )*(*)        !" إå(3)
      REAL       GDATA3 ( * )            !" ǡ(3)
      CHARACTER  HHEAD4 ( * )*(*)        !" إå(4)
      REAL       GDATA4 ( * )            !" ǡ(4)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpeyxz.F:9:
      SUBROUTINE GPEYXZ
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpeyxz.F:72:
      SUBROUTINE GMEYXZ
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpfadd.F:9:
      SUBROUTINE GPFADD
     I         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpfadd.F:78:
      SUBROUTINE GMFADD
     M         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpfcon.F:9:
      SUBROUTINE GPFCON
     I         ( HHEAD , GDATA , VAL   ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      REAL       VAL                     !" 顼
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpfcon.F:54:
      SUBROUTINE GMFCON
     M         ( HHEAD , GDATA ,
     I           VAL   ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      REAL       VAL                     !" 顼
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpfdiv.F:9:
      SUBROUTINE GPFDIV
     I         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpfdiv.F:79:
      SUBROUTINE GMFDIV
     M         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpffct.F:9:
      SUBROUTINE GPFFCT
     I         ( HHEAD , GDATA , VAL   ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      REAL       VAL                     !" 顼
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpffct.F:54:
      SUBROUTINE GMFFCT
     M         ( HHEAD , GDATA ,
     I           VAL   ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      REAL       VAL                     !" 顼
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpffna.F:9:
      SUBROUTINE GPFFNA
     I         ( HHEAD , GDATA , RFNA  ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpffna.F:54:
      SUBROUTINE GMFFNA
     M         ( HHEAD , GDATA ,
     I           RFNA  ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpffnb.F:9:
      SUBROUTINE GPFFNB
     I         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2, RFNB  ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpffnb.F:80:
      SUBROUTINE GMFFNB
     M         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2, RFNB  ,
     I           HEDIT , HETTL           )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpfinc.F:9:
      SUBROUTINE GPFINC
     I         ( HHEAD , GDATA , VAL   ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      REAL       VAL                     !" 顼
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpfinc.F:54:
      SUBROUTINE GMFINC
     M         ( HHEAD , GDATA ,
     I           VAL   ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      REAL       VAL                     !" 顼
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpfmlt.F:9:
      SUBROUTINE GPFMLT
     I         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpfmlt.F:79:
      SUBROUTINE GMFMLT
     M         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpfset.F:9:
      SUBROUTINE GPFSET
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpfset.F:50:
      SUBROUTINE GMFSET
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpfsub.F:9:
      SUBROUTINE GPFSUB
     I         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpfsub.F:79:
      SUBROUTINE GMFSUB
     M         ( HHEAD1, GDATA1,
     I           HHEAD2, GDATA2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå(1)
      REAL       GDATA1 ( * )            !" ǡ(1)
      CHARACTER  HHEAD2 ( * )*(*)        !" إå(2)
      REAL       GDATA2 ( * )            !" ǡ(2)
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpmiss.F:9:
      SUBROUTINE GPMISS
     I         ( HHEAD ,
     O           GDATA   )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
 
gptool/gptavg.F:9:
      SUBROUTINE GPTAVG
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     M           HHEADW, WDATA ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADW ( * )*(*)        !" إå()
      REAL       WDATA  ( * )            !" ȥ󥿡
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gptavg.F:90:
      ENTRY       GPTAVR
     O          ( HHEADO )
      CHARACTER  HHEADO ( * )*(*)        !" إå()
 
gptool/gptavg.F:100:
      SUBROUTINE GPTAVO
     I         ( HHEADW, WDATA  ,
     M           HHEADO, GDATAO  )
      CHARACTER  HHEADW ( * )*(*)        !" إå()
      REAL       WDATA  ( * )            !" ȥ󥿡
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gptseq.F:9:
      SUBROUTINE  GPTSEQ
     I          ( HHEAD , GDATA ,
     I            HEDIT , HETTL ,
     O            HHEADT, GDATAT )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADT ( * )*(*)        !" إå()
      REAL       GDATAT ( * )            !" ǡ()
 
gptool/gptseq.F:167:
      ENTRY       GPTSQR
     O          ( HHEADT )
      CHARACTER  HHEADT ( * )*(*)        !" إå()
 
gptool/gptseq.F:176:
      ENTRY       GPTSQN
     I          ( ISEQ   )
 
gptool/gpxavg.F:10:
      SUBROUTINE GPXAVG
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpxavg.F:117:
      SUBROUTINE GMXAVG
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpxcom.F:9:
      SUBROUTINE GPXCOM
     I         ( HHEAD , GDATA , IX    ,
     M           HHEADO, GDATAO         )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IX                      !" ٤1γ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpxcom.F:47:
      SUBROUTINE GPXCMI
     I         ( HHEAD , HAITMX, IXSTR , IXEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      CHARACTER  HAITMX      *(*)        !" 礹1μ
      INTEGER    IXSTR                   !" 1μγʻһϤ
      INTEGER    IXEND                   !" 1μγʻҽ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpxcyc.F:9:
      SUBROUTINE GPXCYC
     I         ( HHEAD , GDATA ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpxcyc.F:71:
      SUBROUTINE GMXCYC
     M         ( HHEAD , GDATA  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
 
gptool/gpxedy.F:9:
      SUBROUTINE GPXEDY
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpxedy.F:103:
      SUBROUTINE GMXEDY
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpxexp.F:9:
      SUBROUTINE GPXEXP
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpxexp.F:43:
      ENTRY      GPXEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpxexp.F:67:
      SUBROUTINE GMXEXP
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpxexp.F:100:
      ENTRY      GMXEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpxext.F:9:
      SUBROUTINE GPXEXT
     I         ( HHEAD , GDATA ,
     I           HAITMX, IXSTR , IXEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HAITMX      *(*)        !" 礹1μ̾
      INTEGER    IXSTR                   !" 1μγʻһϤ
      INTEGER    IXEND                   !" 1μγʻҽ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpxext.F:80:
      SUBROUTINE GMXEXT
     I         ( HHEAD , GDATA ,
     I           HAITMX, IXSTR , IXEND ,
     I           HEDIT , HETTL           )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HAITMX      *(*)        !" 礹1μ̾
      INTEGER    IXSTR                   !" 1μγʻһϤ
      INTEGER    IXEND                   !" 1μγʻҽ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpxrdc.F:9:
      SUBROUTINE GPXRDC
     I         ( HHEAD , GDATA , IXSEL1 , IXSEL2 ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO                    )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IXSEL1                  !" ڤФ1γʻ
      INTEGER    IXSEL2                  !" ڤФ1γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpxrdc.F:98:
      SUBROUTINE GMXRDC
     I         ( HHEAD , GDATA ,
     I           IXSEL1, IXSEL2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IXSEL1                  !" ڤФ1γʻ
      INTEGER    IXSEL2                  !" ڤФ1γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpxsel.F:9:
      SUBROUTINE GPXSEL
     I         ( HHEAD , GDATA , IXSEL  ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO          )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IXSEL                   !" 򤹤1γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpxsel.F:102:
      SUBROUTINE GMXSEL
     M         ( HHEAD , GDATA ,
     I           IXSEL ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IXSEL                   !" 򤹤1γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpyavg.F:9:
      SUBROUTINE GPYAVG
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpyavg.F:113:
      SUBROUTINE GMYAVG
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpycom.F:9:
      SUBROUTINE GPYCOM
     I         ( HHEAD , GDATA , IY    ,
     M           HHEADO, GDATAO         )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IY                      !" ٤2γ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpycom.F:49:
      SUBROUTINE GPYCMI
     I         ( HHEAD , HAITMY, IYSTR , IYEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      CHARACTER  HAITMY      *(*)        !" 礹2μ
      INTEGER    IYSTR                   !" 2μγʻһϤ
      INTEGER    IYEND                   !" 2μγʻҽ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpyedy.F:9:
      SUBROUTINE GPYEDY
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpyedy.F:106:
      SUBROUTINE GMYEDY
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpyexp.F:9:
      SUBROUTINE GPYEXP
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpyexp.F:43:
      ENTRY      GPYEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpyexp.F:67:
      SUBROUTINE GMYEXP
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpyexp.F:100:
      ENTRY      GMYEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpyext.F:9:
      SUBROUTINE GPYEXT
     I         ( HHEAD , GDATA ,
     I           HAITMY, IYSTR , IYEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HAITMY      *(*)        !" 礹2μ̾
      INTEGER    IYSTR                   !" 2μγʻһϤ
      INTEGER    IYEND                   !" 2μγʻҽ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpyext.F:82:
      SUBROUTINE GMYEXT
     I         ( HHEAD , GDATA ,
     I           HAITMY, IYSTR , IYEND ,
     I           HEDIT , HETTL           )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HAITMY      *(*)        !" 礹2μ̾
      INTEGER    IYSTR                   !" 2μγʻһϤ
      INTEGER    IYEND                   !" 2μγʻҽ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpyrdc.F:9:
      SUBROUTINE GPYRDC
     I         ( HHEAD , GDATA , IYSEL1, IYSEL2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO                  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IYSEL1                  !" ڤФ2γʻ
      INTEGER    IYSEL2                  !" ڤФ2γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpyrdc.F:103:
      SUBROUTINE GMYRDC
     M         ( HHEAD , GDATA ,
     I           IYSEL1, IYSEL2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IYSEL1                  !" ڤФ2γʻ
      INTEGER    IYSEL2                  !" ڤФ2γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpysel.F:9:
      SUBROUTINE GPYSEL
     I         ( HHEAD , GDATA , IYSEL  ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO          )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IYSEL                   !" 򤹤2γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpysel.F:98:
      SUBROUTINE GMYSEL
     M         ( HHEAD , GDATA ,
     I           IYSEL ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IYSEL                   !" 򤹤2γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpzavg.F:9:
      SUBROUTINE GPZAVG
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpzavg.F:107:
      SUBROUTINE GMZAVG
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpzcom.F:9:
      SUBROUTINE GPZCOM
     I         ( HHEAD , GDATA , IZ    ,
     M           HHEADO, GDATAO         )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IZ                      !" ٤3γ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpzcom.F:47:
      SUBROUTINE GPZCMI
     I         ( HHEAD , HAITMZ, IZSTR , IZEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      CHARACTER  HAITMZ      *(*)        !" 礹3μ
      INTEGER    IZSTR                   !" 3μγʻһϤ
      INTEGER    IZEND                   !" 3μγʻҽ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpzedy.F:9:
      SUBROUTINE GPZEDY
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpzedy.F:105:
      SUBROUTINE GMZEDY
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpzexp.F:9:
      SUBROUTINE GPZEXP
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpzexp.F:43:
      ENTRY      GPZEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO   )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpzexp.F:67:
      SUBROUTINE GMZEXP
     M         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpzexp.F:100:
      ENTRY      GMZEXC
     I         ( HHEAD , GDATA ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpzext.F:9:
      SUBROUTINE GPZEXT
     I         ( HHEAD , GDATA ,
     I           HAITMZ, IZSTR , IZEND ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HAITMZ      *(*)        !" 礹3μ̾
      INTEGER    IZSTR                   !" 3μγʻһϤ
      INTEGER    IZEND                   !" 3μγʻҽ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpzext.F:80:
      SUBROUTINE GMZEXT
     I         ( HHEAD , GDATA ,
     I           HAITMZ, IZSTR , IZEND ,
     I           HEDIT , HETTL           )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      CHARACTER  HAITMZ      *(*)        !" 礹3μ̾
      INTEGER    IZSTR                   !" 3μγʻһϤ
      INTEGER    IZEND                   !" 3μγʻҽ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpzrdc.F:9:
      SUBROUTINE GPZRDC
     I         ( HHEAD , GDATA , IZSEL1, IZSEL2,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO                 )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IZSEL1                  !" ڤФ3γʻ
      INTEGER    IZSEL2                  !" ڤФ3γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpzrdc.F:98:
      SUBROUTINE GMZRDC
     M         ( HHEAD , GDATA ,
     I           IZSEL1, IZSEL2,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IZSEL1                  !" ڤФ3γʻ
      INTEGER    IZSEL2                  !" ڤФ3γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gptool/gpzsel.F:9:
      SUBROUTINE GPZSEL
     I         ( HHEAD , GDATA , IZSEL  ,
     I           HEDIT , HETTL ,
     O           HHEADO, GDATAO          )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IZSEL                   !" 򤹤3γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
      CHARACTER  HHEADO ( * )*(*)        !" إå()
      REAL       GDATAO ( * )            !" ǡ()
 
gptool/gpzsel.F:93:
      SUBROUTINE GMZSEL
     M         ( HHEAD , GDATA ,
     I           IZSEL ,
     I           HEDIT , HETTL  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå()
      REAL       GDATA  ( * )            !" ǡ()
      INTEGER    IZSEL                   !" 򤹤3γʻ
      CHARACTER  HEDIT       *(*)        !" Խά
      CHARACTER  HETTL       *(*)        !" Խȥ
 
gttool/gtopen.F:9:
      SUBROUTINE GTOPEN
 
gttool/gtpget.F:9:
      SUBROUTINE GTPGET
     I         ( HP,
     O           IPARA )
      CHARACTER HP   *(*)                !" ѥ᡼̾
 
gttool/gtpget.F:70:
      ENTRY GTPSET
     I         ( HP, IPARA )
      CHARACTER HP   *(*)                !" ѥ᡼̾
 
gttool/gtpget.F:88:
      ENTRY GTCGET
     I         ( HP,
     O           HPARA )
      CHARACTER HP   *(*)                !" ѥ᡼̾
      CHARACTER HPARA*(*)                !" ѥ᡼ơʸ
 
gttool/gtpget.F:107:
      ENTRY GTCSET
     I         ( HP, HPARA )
      CHARACTER HP   *(*)                !" ѥ᡼̾
      CHARACTER HPARA*(*)                !" ѥ᡼ơʸ
 
gttool/gtsign.F:9:
      SUBROUTINE GTSIGN
     I         ( HSIGN  )
      CHARACTER  HSIGN       *(*)        !" ̾
 
gttool/gtsize.F:9:
      SUBROUTINE GTSIZE
     M         ( HHEAD ,
     I           ISIZE  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå
      INTEGER    ISIZE                   !" 󥵥
 
gutool/guaxck.F:9:
      SUBROUTINE GUAXCK
     I         ( HHEAD1, HHEAD2,
     O           ICHK            )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå1
      CHARACTER  HHEAD2 ( * )*(*)        !" إå1
      INTEGER    ICHK                    !" פƤ0
 
gutool/gucacf.F:9:
      SUBROUTINE GUCACF
     I         ( HHEAD, ID    , HCFG  ,
     M           HHEADO                )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      INTEGER    ID                          !" ܤμ
      CHARACTER  HCFG       *(*)             !" ֻ
      CHARACTER  HHEADO( * )*(*)             !" إåʽϡ
 
gutool/gucacf.F:45:
      SUBROUTINE GUTACF
     I         ( HAITM , HCFG  ,
     O           HAITMO          )
      CHARACTER  HAITM      *(*)                !" ʻҼ̾
      CHARACTER  HCFG       *(*)                !" ֻ
      CHARACTER  HAITMO     *(*)                !" ʻҼ̾
 
gutool/gucacf.F:80:
      SUBROUTINE GUQACF
     I         ( HHEAD, ID    ,
     M           HCFG                  )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      INTEGER    ID                          !" ܤμ
      CHARACTER  HCFG       *(*)             !" ֻ
 
gutool/gucsiz.F:9:
      SUBROUTINE GUCSIZ
     I         ( HHEAD1, HHEAD2,
     O           IXSTR1, IXDIM1, IXSTR2, IXDIM2,
     O           IYSTR1, IYDIM1, IYSTR2, IYDIM2,
     O           IZSTR1, IZDIM1, IZSTR2, IZDIM2,
     O           IXSTRC, IXENDC, IXDIMC,
     O           IYSTRC, IYENDC, IYDIMC,
     O           IZSTRC, IZENDC, IZDIMC         )
      CHARACTER  HHEAD1 ( * )*(*)        !" إå
      CHARACTER  HHEAD2 ( * )*(*)        !" إå
      INTEGER    IXSTR1, IXDIM1          !" λϤ礭
      INTEGER    IXSTR2, IXDIM2          !"   ʥإå
      INTEGER    IYSTR1, IYDIM1          !" λϤ礭
      INTEGER    IYSTR2, IYDIM2          !"   ʥإå
      INTEGER    IZSTR1, IZDIM1          !" λϤ礭
      INTEGER    IZSTR2, IZDIM2          !"   ʥإå
      INTEGER    IXSTRC, IXENDC, IXDIMC  !" ζʬ
      INTEGER    IYSTRC, IYENDC, IYDIMC  !" ζʬ
      INTEGER    IZSTRC, IZENDC, IZDIMC  !" ζʬ
 
gutool/guct2r.F:10:
      SUBROUTINE GUCT2R
     I         ( KT    , HUNIT  , HUNITY, IDELT  ,
     O           RT                                )
      CHARACTER  HUNIT *(*)        !"  KT ñ
      REAL*8     WT                !" ñ HUNITY
      INTEGER    IDELT             !" ƥåפÿ
      REAL       RT                !" ϻñ HUNITY
 
gutool/guct2r.F:39:
      ENTRY      GUCT2I
     I         ( KT    , HUNIT  , HUNITY, IDELT  ,
     O           IT                                )
      CHARACTER  HUNIT *(*)        !"  KT ñ
      REAL*8     WT                !" ñ HUNITY
      INTEGER    IDELT             !" ƥåפÿ
      INTEGER    IT                !" ϻñ HUNITY
 
gutool/guct2r.F:59:
      SUBROUTINE GUCT2S
     I         ( KT    , HUNIT  , IDELT  ,
     O           WS                       )
      CHARACTER  HUNIT *(*)        !"  KT ñ
      INTEGER    IDELT             !" ƥåפÿ
      REAL*8     WS                !" ñ 
 
gutool/guct2r.F:114:
      SUBROUTINE GUCS2T
     I         ( WS    , HUNITY, IDELT  ,
     O           WT                       )
      REAL*8     WS                !" ϻñ HUNIT
      REAL*8     WT                !" ϻñ HUNITY
      INTEGER    IDELT             !" ƥåפÿ
 
gutool/guctxt.F:9:
      SUBROUTINE GUCTXT
     I         ( HEXT  ,
     O           HNORM  )
      CHARACTER HEXT  *(*)           !" ʸ
      CHARACTER HNORM *(*)           !" 줿ʸ
 
gutool/gueaxn.F:9:
      SUBROUTINE GUEAXN
     I         ( HAXIS , HED   , HET   ,
     I           ISTR  , IEND  ,
     O           HEDIT , HETTL           )
      CHARACTER  HAXIS         *(*)          !" ̾
      CHARACTER  HED           *(*)          !" ԽһƬ
      CHARACTER  HET           *(*)          !" Խȥ
      INTEGER    ISTR                        !" ʻֹϤ
      INTEGER    IEND                        !" ʻֹ潪
      CHARACTER  HEDIT         *(*)          !" Խһ
      CHARACTER  HETTL         *(*)          !" Խȥ
 
gutool/gulchr.F:9:
      SUBROUTINE GULCHR
     I         ( HFMT  , IVAL  ,
     O           HCHR  , NCHR   )
      CHARACTER  HFMT   *(*)             !" եޥå
      CHARACTER  HCHR   *(*)             !" ʸ
      INTEGER    NCHR                    !" ʸĹ
 
gutool/gunenv.F:6:
      SUBROUTINE GUNENV                      !" ѥ̾Ķѿִ
     M         ( HFILE ,
     I           HDEFEV, OMESG  )
      CHARACTER  HFILE  *(*)          !" ѥ̾
      CHARACTER  HDEFEV *(*)          !" Ķѿǥե
      LOGICAL    OMESG                !" åե饰
 
gutool/gunenv.F:43:
      SUBROUTINE GURENV                      !" Ķѿִ
     M         ( HFILE ,
     I           HDEFEV, OMESG  )
      CHARACTER  HFILE  *(*)          !" ѥ̾
      CHARACTER  HDEFEV *(*)          !" Ķѿǥե
      LOGICAL    OMESG                !" åե饰
 
gutool/gunenv.F:126:
      SUBROUTINE GUGENV                      !" Ķѿ
     I         ( HENAME ,
     O           HEVAL    )
      CHARACTER  HENAME *(*)
      CHARACTER  HEVAL  *(*)
 
gutool/guqaxd.F:9:
      SUBROUTINE GUQAXD
     I         ( HAXIS ,
     O           IADIM , OCYCL  )
      CHARACTER  HAXIS      *(*)             !" ʻҼ̾
      INTEGER    IADIM                       !" ʻҤΥ
      LOGICAL    OCYCL                       !" å
 
gutool/guqaxs.F:9:
      SUBROUTINE GUQAXS
     I         ( HAXIS , HKIND ,
     O           HHEAD , AXIS  , IEOD  )
      CHARACTER  HAXIS *(*)                  !" ʻҼ̾
      CHARACTER  HKIND *(*)                  !" LOC/WGT
      CHARACTER  HHEAD ( * )*(*)             !" إå
      REAL       AXIS  ( * )                 !" /Ť
      INTEGER    IEOD                        !" ǡʤե饰
 
gutool/guqaxs.F:97:
      SUBROUTINE GUQAXC
     I         ( HAXIS , HKIND ,
     O           HHEAD , AXIS  , ACYCLE, IAMAX , IEOD  )
      CHARACTER  HAXIS *(*)                  !" ʻҼ̾
      CHARACTER  HKIND *(*)                  !" LOC/WGT
      CHARACTER  HHEAD ( * )*(*)             !" إå
      REAL       AXIS  ( * )                 !" /Ť
      REAL       ACYCLE                      !" å
      INTEGER    IAMAX                       !" ʻ:󥵥å
      INTEGER    IEOD                        !" ǡʤե饰
 
gutool/guqaxv.F:10:
      SUBROUTINE GUQAXL
     I         ( HHEAD , ID    , HKIND ,
     O           HHEADA, AXIS  , ACYCLE, IAMAX , IEOD  )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      INTEGER    ID                          !" ܤμ
      CHARACTER  HKIND      *(*)             !" LOC/WGT
      CHARACTER  HHEADA( * )*(*)             !" إå
      REAL       AXIS  ( * )                 !" /Ť
      REAL       ACYCLE                      !" å
      INTEGER    IAMAX                       !" ʻ:󥵥å
      INTEGER    IEOD                        !" ǡʤե饰
 
gutool/guqaxv.F:116:
      SUBROUTINE GUQAXQ
     I         ( HHEAD , ID    , HKIND ,
     O           AXIS  , ACYCLE, IAMAX , IEOD  ,
     D           IZDIM                           )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      INTEGER    ID                          !" ܤμ
      CHARACTER  HKIND      *(*)             !" LOC/WGT
      REAL       AXIS  ( IZDIM )             !" /Ť
      REAL       ACYCLE                      !" å
      INTEGER    IAMAX                       !" ʻ:󥵥å
      INTEGER    IEOD                        !" ǡʤե饰
 
gutool/guqaxv.F:152:
      SUBROUTINE GUQAXV
     I         ( HHEAD , ID    , HKIND ,
     O           HHEADA, AXIS  , IEOD  )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      INTEGER    ID                          !" ܤμ
      CHARACTER  HKIND      *(*)             !" LOC/WGT
      CHARACTER  HHEADA( * )*(*)             !" إå
      REAL       AXIS  ( * )                 !" /Ť
      INTEGER    IEOD                        !" ǡʤե饰
 
gutool/guqaxv.F:172:
      SUBROUTINE GUQAXP
     I         ( HHEAD , ID    , HKIND ,
     O           AXIS  , IEOD  ,
     D           IZDIM                  )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      INTEGER    ID                          !" ܤμ
      CHARACTER  HKIND      *(*)             !" LOC/WGT
      REAL       AXIS  ( IZDIM )             !" /Ť
      INTEGER    IEOD                        !" ǡʤե饰
 
gutool/guqiax.F:9:
      SUBROUTINE GUQIAX
     I         ( HAXIS , HKIND ,
     O           HHEAD , AXIS  , IEOD   )
      CHARACTER  HAXIS      *(*)         !" ʻҼ̾
      CHARACTER  HKIND *(*)              !" LOC/WGT
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       AXIS  ( * )             !" /Ť
      INTEGER    IEOD                    !" ǡʤե饰
 
gutool/guqiax.F:88:
      ENTRY      GUQIAH
     I         ( HAXIS ,
     O           HHEAD , IEOD   )
      CHARACTER  HAXIS      *(*)         !" ʻҼ̾
      CHARACTER  HHEAD ( * )*(*)         !" إå
      INTEGER    IEOD                    !" ǡʤե饰
 
gutool/guqiax.F:106:
      ENTRY      GUSIAX
     I         ( HHEAD , AXLOC , AXWGT ,
     I           INUM                   )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       AXLOC ( * )             !" 
      REAL       AXWGT ( * )             !" Ť
      INTEGER    INUM                    !" ʻֹ
 
gutool/guqiax.F:133:
      ENTRY      GUAIAX
     I         ( HAXIS , AXLOC1, AXWGT1,
     I           IZ                      )
      CHARACTER  HAXIS      *(*)         !" ʻҼ̾
      REAL       AXLOC1                  !" 
      REAL       AXWGT1                  !" Ť
      INTEGER    IZ                      !" ʻֹ
 
gutool/guqiax.F:172:
      ENTRY GUQIAN
     O    ( IAMAX )
 
gutool/guqiax.F:187:
      ENTRY GUWIAX
     I         ( HHEAD )
      CHARACTER  HHEAD ( * )*(*)         !" إå
 
gutool/guqiax.F:235:
      SUBROUTINE GUAIAH
     I         ( HHEAD , ID    ,
     I           AXLOC1, AXWGT1,
     I           IZ                      )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      INTEGER    ID                      !" ܤμ
      REAL       AXLOC1                  !" 
      REAL       AXWGT1                  !" Ť
      INTEGER    IZ                      !" ʻֹ
 
gutool/guqnow.F:9:
      SUBROUTINE GUQNOW
     O         ( HTIME )
      CHARACTER  HTIME  *(*)             !" (yyyymmddhhmmss)
 
gutool/guqsiz.F:9:
      SUBROUTINE GUQSIZ
     I         ( HHEAD ,
     O           IXSTR , IXEND , IXDIM ,
     O           IYSTR , IYEND , IYDIM ,
     O           IZSTR , IZEND , IZDIM  )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      INTEGER    IXSTR , IXEND , IXDIM   !" 1λϤ  ˡ
      INTEGER    IYSTR , IYEND , IYDIM   !" 2λϤ  ˡ
      INTEGER    IZSTR , IZEND , IZDIM   !" 3λϤ  ˡ
 
gutool/guqsiz.F:36:
      SUBROUTINE GUQTSZ
     I         ( HHEAD ,
     O           ISIZE   )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      INTEGER    ISIZE                   !" ˡ
 
gutool/guqtim.F:9:
      SUBROUTINE GUQTIM
     I         ( HHEAD ,
     O           RT    , HUTIM )
      CHARACTER  HHEAD ( * )*(*)         !" إå
      REAL       RT                      !" 
      CHARACTER  HUTIM      *(*)         !" ñ
 
gutool/gurntp.F:6:
      SUBROUTINE GURNTF
     M         ( HFNAME ,
     I           HFNREF , HFNCHG  )
      CHARACTER  HFNAME *(*)
      CHARACTER  HFNREF *(*)
      CHARACTER  HFNCHG *(*)
 
gutool/gusmis.F:9:
      SUBROUTINE GUSMIS
     I         ( HHEAD  )
      CHARACTER  HHEAD  ( * )*(*)        !" إå
 
gutool/gusnow.F:9:
      SUBROUTINE GUSNOW
     M         ( HHEAD ,
     I           HP     )
      CHARACTER  HHEAD  ( * )*(*)        !" إå
      CHARACTER  HP          *(*)        !" һ̾
 
gutool/guszck.F:9:
      SUBROUTINE GUSZCK
     I         ( HHEAD , ISIZEO  )
      CHARACTER  HHEAD ( * )*(*)             !" إå
      INTEGER    ISIZEO                      !" Ϥ礭
 
gutool/guszck.F:28:
      SUBROUTINE GUSZCZ
     I         ( ISIZEA, ISIZEO )
      INTEGER    ISIZEA                      !" ΰ礭
      INTEGER    ISIZEO                      !" Ϥ礭
 
gutool/gutpac.F:9:
      SUBROUTINE GUTPAC
     I         ( IYEAR , IMONTH, IDAY  ,
     I           IHOUR , IMIN  , ISEC  ,
     O           HDATE                  )
      INTEGER    IYEAR                        !" ǯ
      INTEGER    IMONTH                       !" 
      INTEGER    IDAY                         !" 
      INTEGER    IHOUR                        !" 
      INTEGER    IMIN                         !" ʬ
      INTEGER    ISEC                         !" 
      CHARACTER  HDATE *(*)                   !" (yyyymmddhhmmss)
 
gutool/gutpac.F:39:
      ENTRY      GUTUPC
     O         ( IYEAR , IMONTH, IDAY  ,
     O           IHOUR , IMIN  , ISEC  ,
     I           HDATE                  )
      INTEGER    IYEAR                        !" ǯ
      INTEGER    IMONTH                       !" 
      INTEGER    IDAY                         !" 
      INTEGER    IHOUR                        !" 
      INTEGER    IMIN                         !" ʬ
      INTEGER    ISEC                         !" 
      CHARACTER  HDATE *(*)                   !" (yyyymmddhhmmss)
 
gutool/guvint.F:4:
      SUBROUTINE GUVINT(WZ,WW,IX)
      REAL      WZ(IX),X(IX)
      REAL      WW(IX)
 
gutool/guvint.F:17:
      ENTRY GUVDIN(WZ,WW,IX,JX,X,WT)
      REAL      WZ(IX),X(IX)
      REAL      WW(IX)
 
gutool/guvint.F:31:
      ENTRY GUVOUT(WZ,WW,IX)
      REAL      WZ(IX),X(IX)
      REAL      WW(IX)
 
