*"$@I=Bj(J $@IA2h%Q%i%a!<%?!<4IM}(J GTOOL3(GGPGET)
*
*"$@MzNr(J 90/08/16 $@>B8}(J  $@FX(J
*"$@MzNr(J 95/05/29 $@C]9-??0l(J  for dcl-5.0
*
*
*********************************************************************
*"         << $@IA2h%Q%i%a!<%?!J?t!K$r;2>H(J >>
*********************************************************************
      SUBROUTINE GGPGET
     I         ( HP,
     O           IPARA )
*
      CHARACTER HP   *(*)                !" $@%Q%i%a!<%?!<$NL>A0(J
*"   (INTEGER)  IPARA                    ! $@%Q%i%a!<%?!<$NFbMF!'?t;z(J
*
      CHARACTER HPARA*(*)                !" $@%Q%i%a!<%?!<$NFbMF!'J8;z(J
*
      PARAMETER ( NPP=43, NPC=7 )
*
      REAL      RX( NPP )
      INTEGER   IX( NPP )
      LOGICAL   LX( NPP )
      EQUIVALENCE ( RX,IX,LX )
*
      CHARACTER HPP  ( NPP )*8
      CHARACTER HPC  ( NPC )*8
      CHARACTER HX   ( NPC )*16
      CHARACTER CMSG*80
*
      SAVE
*
*"$@%l%$%"%&%H(J
      DATA  HPP( 1)/'VRATIO  '/, RX( 1)/0.70/  !" $@A4BN=D2#Hf(J
      DATA  HPP( 2)/'VXMIN   '/, RX( 2)/0.20/  !" $@%S%e!<%]!<%H(JXmin
      DATA  HPP( 3)/'VXMAX   '/, RX( 3)/0.80/  !" $@%S%e!<%]!<%H(JXmax
      DATA  HPP( 4)/'VYMIN   '/, RX( 4)/0.20/  !" $@%S%e!<%]!<%H(JYmin
      DATA  HPP( 5)/'VYMAX   '/, RX( 5)/0.50/  !" $@%S%e!<%]!<%H(JYmax
      DATA  HPP( 6)/'STITL   '/, RX( 6)/0.02/  !" $@%?%$%H%kJ8;z9b(J
      DATA  HPP( 7)/'SEDIT   '/, RX( 7)/0.01/  !" $@JT=85-=RJ8;z9b(J
      DATA  HPP( 8)/'SDESC   '/, RX( 8)/0.01/  !" $@;(5-=RJ8;z9b(J
      DATA  HPP( 9)/'SAXSL   '/, RX( 9)/0.015/ !" $@<4%i%Y%kJ8;z9b(J
      DATA  HPP(10)/'SAXST   '/, RX(10)/0.015/ !" $@<4%?%$%H%kJ8;z9b(J
      DATA  HPP(11)/'SREMK   '/, RX(11)/0.008/ !" $@Cm5-J8;z9b(J
*"$@EyCM@~(J
      DATA  HPP(12)/'SCONL   '/, RX(12)/0.01/  !" $@%3%s%?%i%Y%kJ8;z9b(J
      DATA  HPP(13)/'ICYCLE  '/, IX(13)/4/     !" $@%3%s%?%i%Y%k4V3V(J
      DATA  HPP(14)/'NCONMAX '/, IX(14)/50/    !" $@%3%s%?:GBgK\?t(J
      DATA  HPP(15)/'CONRFCT '/, RX(15)/0.5/   !" $@%3%s%?>JN,0LCV(J
*                                              !" (0:$@Bg$-$$B&(J,1:$@>.$5$$B&(J)
*"$@%Y%/%H%k>l(J
      DATA  HPP(16)/'VXINT   '/, IX(16)/1/     !" $@%Y%/%H%k4V0z!'#x(J
      DATA  HPP(17)/'VYINT   '/, IX(17)/1/     !" $@%Y%/%H%k4V0z!'#y(J
      DATA  HPP(18)/'VECFCT  '/, RX(18)/1.0/   !" $@%Y%/%H%kBg$-$5(J
      DATA  HPP(19)/'LEQRAT  '/, LX(19)/.FALSE./ !" $@!7(J  $@#x#yF1$8$+(J
      DATA  HPP(20)/'LUNIT   '/, LX(20)/.TRUE./!" $@%f%K%C%H%Y%/%H%k(J
      DATA  HPP(21)/'VXULOC  '/, RX(21)/0.06/  !"  $@!7(J $@0LCV!'#x(J
      DATA  HPP(22)/'VYULOC  '/, RX(22)/0.20/  !"  $@!7(J $@0LCV!'#y(J
*"$@%H!<%s(J
      DATA  HPP(23)/'LTONS   '/, LX(23)/.TRUE./!" $@%H!<%s%9%1!<%k(J
      DATA  HPP(24)/'TXSLOC  '/, RX(24)/0.05/  !"  $@!7(J $@0LCV!'#x(J
      DATA  HPP(25)/'TYSLOC  '/, RX(25)/0.1 /  !"  $@!7(J $@0LCV!'#y(J
      DATA  HPP(26)/'TXSWDH  '/, RX(26)/0.25/  !"  $@!7(J $@I}(J  $@!'#x(J
      DATA  HPP(27)/'TYSWDH  '/, RX(27)/0.05/  !"  $@!7(J $@I}(J  $@!'#y(J
      DATA  HPP(28)/'TLNUM   '/, IX(28)/4/     !"  $@!7(J $@%i%Y%k$N?t(J
      DATA  HPP(29)/'LLINT   '/, LX(29)/.TRUE./!" $@@~<o%3%a%s%H(J
      DATA  HPP(30)/'LTVX1   '/, RX(30)/0.22/  !"  $@!7(J $@0LCV!'#x(J(1)
      DATA  HPP(31)/'LTVX2   '/, RX(31)/0.55/  !"  $@!7(J $@0LCV!'#x(J(2)
      DATA  HPP(32)/'LTWDH   '/, RX(32)/0.08/  !"  $@!7(J $@I}(J
      DATA  HPP(33)/'INNER   '/, IX(33)/-1/    !" $@L\@90LCV(J
      DATA  HPP(34)/'CONTSET '/, IX(34)/0/     !" $@%3%s%?!<%l%Y%k%;%C%H(J
      DATA  HPP(35)/'TONESET '/, IX(35)/0/     !" $@%H!<%s%l%Y%k%;%C%H(J
      DATA  HPP(36)/'NTONE   '/, IX(36)/50/    !" $@%H!<%s%l%Y%k?t(J
      DATA  HPP(37)/'TONEPAT '/, IX(37)/11999/ !" $@%H!<%s%l%Y%k3+;O(J
      DATA  HPP(38)/'TONEINC '/, IX(38)/ 1000/ !" $@%H!<%s%l%Y%k4V3V(J
*"$@CO?^Ej1F(J
      DATA  HPP(39)/'MAPPRJ  '/, IX(39)/0/     !" $@Ej1FK!(J
      DATA  HPP(40)/'MAPLON  '/, RX(40)/180./  !" $@Ej1FCf?47PEY(J
      DATA  HPP(41)/'MAPLAT  '/, RX(41)/0.0/   !" $@Ej1FCf?40^EY(J
      DATA  HPP(42)/'MAPROT  '/, RX(42)/0.0/   !" $@Ej1F2sE>3QEY(J
      DATA  HPP(43)/'MAPFAC  '/, RX(43)/1.0/   !" $@Ej1F3HBgN((J
*"$@%l%$%"%&%H(J($@J8;z%Q%i%a%?!<(J)
      DATA  HPC( 1)/'LTITEM  '/, HX( 1)/'ITEM'/!" $@@~<o%3%a%s%H5-=R;R(J
      DATA  HPC( 2)/'CXSIDE  '/, HX( 2)/ 'BT' /!" $@:BI8<4(J(x)
      DATA  HPC( 3)/'CYSIDE  '/, HX( 3)/ 'LR' /!" $@:BI8<4(J(y)
      DATA  HPC( 4)/'CXSIDEL '/, HX( 4)/ 'B'  /!" $@%i%Y%k(J(x)
      DATA  HPC( 5)/'CYSIDEL '/, HX( 5)/ 'L'  /!" $@%i%Y%k(J(y)
      DATA  HPC( 6)/'CXSIDET '/, HX( 6)/ 'BT' /!" $@3J;R0LCV(J(x)
      DATA  HPC( 7)/'CYSIDET '/, HX( 7)/ 'LR' /!" $@3J;R0LCV(J(y)
*
      DO 1100 N = 1, NPP
        IF ( HP .EQ. HPP  (N) ) THEN
          IPARA = IX(N)
          RETURN
        END IF
 1100 CONTINUE
*
      NHP  = LENC(HP)
      CMSG = 'PARAMETER '''//HP(1:NHP)//''' IS NOT DEFINED.'
      CALL MSGDMP( 'E', 'GGPGET', CMSG )
*
      RETURN
*=======================================================================
*"         << $@IA2h%Q%i%a!<%?!J?t!K$r@_Dj(J >>
*=======================================================================
      ENTRY GGPSET
     I         ( HP, IPARA )
*
      DO 2100 N = 1, NPP
        IF ( HP .EQ. HPP  (N) ) THEN
          IX( N ) = IPARA
          RETURN
        END IF
 2100 CONTINUE
*
      NHP = LENC(HP)
      CMSG = 'PARAMETER '''//HP(1:NHP)//''' IS NOT DEFINED.'
      CALL MSGDMP( 'E', 'GGPSET', CMSG )
*
      RETURN
*=======================================================================
*"         << $@IA2h%Q%i%a!<%?!JJ8;z!K$r;2>H(J >>
*=======================================================================
      ENTRY GGCGET
     I         ( HP,
     O           HPARA )
*
      DO 3100 N = 1, NPC
        IF ( HP .EQ. HPC(N) ) THEN
          HPARA = HX( N )
          RETURN
        END IF
 3100 CONTINUE
*
      NHP = LENC(HP)
      CMSG = 'PARAMETER '''//HP(1:NHP)//''' IS NOT DEFINED.'
      CALL MSGDMP( 'E', 'GGCGET', CMSG )
*
      RETURN
*=======================================================================
*"         << $@IA2h%Q%i%a!<%?!<!JJ8;z!K$r@_Dj(J >>
*=======================================================================
      ENTRY GGCSET
     I         ( HP, HPARA )
*
      DO 4100 N = 1, NPC
        IF ( HP .EQ. HPC(N) ) THEN
          HX( N ) = HPARA
          RETURN
        END IF
 4100 CONTINUE
*
      NHP = LENC(HP)
      CMSG = 'PARAMETER '''//HP(1:NHP)//''' IS NOT DEFINED.'
      CALL MSGDMP( 'E', 'GGCSET', CMSG )
      RETURN
*
      END
