2002-11-07 10:23

'C       fortran call
'C      DOUBLE PRECISION SLAT,SLON,NORTH,EAST,A(16),B(4),SECLAT,SECLON,
'C     XUTZ,SK,THET,TLAT,TLON
'CC      character*1 MINUS,BLANK,FLAG1,FLAG2
'C      CHARACTER*4 IPT
'C      CALL MAINUTM(IPT,FLAG1,IDLAT,IMLAT,SECLAT,FLAG2,IDLON,
'C     XIMLON,SECLON,NORTH,EAST,IZONE,ISPHER,IZON2,IS )
'C          STOP
'C          END

     $VBDLL=ON

     DEFSTR IPT , FLAG1 , FLAG2
     DEFDBL SECLAT, SECLON, NORTH, EAST, Kf, Thet
     DEFINT IDLAT, IDLON, IMLAT, IMLON, IZONE, ISPHER, IZON2,ISS

     DECLARE SUB  MAINUTM LIB "j380.dll" ALIAS "mainutm_" (BYREF IPTD AS STRING, _
      BYREF FLAG1D AS STRING,BYREF IDLATD AS INTEGER,BYREF IMLATD AS INTEGER, _
      BYREF SECLATD AS DOUBLE,BYREF FLAG2D AS STRING,BYREF IDLOND AS INTEGER, _
      BYREF IMLOND AS INTEGER,BYREF SECLOND AS DOUBLE,BYREF NORTHD AS DOUBLE, _
      BYREF EASTD AS DOUBLE,BYREF IZONED AS INTEGER,BYREF ISPHERD AS INTEGER, _
      BYREF IZON2D AS INTEGER,BYREF kk AS DOUBLE, BYREF teta AS DOUBLE)

 '


     IPT=SPACE$(4)
     FLAG1=SPACE$(1)
     FLAG2=SPACE$(1)

     FLAG1="-"
     IPT="Hola"
     FLAG2=" "
     IDLAT=33
     IDLON=69
     IZONE=19
     IZON2=0
     ISPHER=0

     CALL MAINUTM(IPT,FLAG1,IDLAT,IMLAT,SECLAT,FLAG2,IDLON, _
      IMLON,SECLON,NORTH,EAST,IZONE,ISPHER,IZON2,Kf,Thet )

     PRINT NORTH," ",EAST,"  "," ",IZON2," ",IPT," k",Kf
     SLEEP 3

     FLAG1=" "
     IPT="Hola"
     FLAG2=" "
     IDLAT=0
     IDLON=0
     IZONE=-19
     IZON2=0
     ISPHER=0
     CALL MAINUTM(IPT,FLAG1,IDLAT,IMLAT,SECLAT,FLAG2,IDLON, _
      IMLON,SECLON,NORTH,EAST,IZONE,ISPHER,IZON2,Kf,Thet )

     PRINT IDLAT," ",Idlon
     SLEEP 3

2002-11-07 10:23