Guidance
指路人
g.yi.org
software / rapidq / Examples / Win32API & DLL / geoutm / GeoConv.rqb

Register 
新用户注册
Search 搜索
首页 
Home Home
Software
Upload

  
'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
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Fri 2021-4-16  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2002-11-07 10:23:30