GAMS Data Exchange API

More documents

Recommendations

Info

Example 5: Fortran program Page 22 RC = gdxGetDLLVersion(PGX, Msg) WRITE(*,*) 'Using GDX DLL version: ', Msg IF (1 == argc) THEN ! Write demand data RC = gdxOpenWrite(PGX, './demanddata.gdx', 'example1', ErrNr) IF (ErrNr /= 0) CALL ReportIOError(ErrNr,'gdxOpenWrite') ok = 0 .ne. gdxDataWriteStrStart(PGX,'Demand','Demand data',1,DT_PAR ,0) IF (.NOT. ok) CALL ReportGDXError(PGX) CALL WriteData(PGX,'New-York',324D0) CALL WriteData(PGX,'Chicago',299D0) CALL WriteData(PGX,'Topeka',274D0) ok = 0 .ne. gdxDataWriteDone(PGX) IF (.NOT. ok) CALL ReportGDXError(PGX) WRITE(*,*) 'Demand data written by example1' ELSE ! Read variable X CALL getarg(2, gdxFname) RC = gdxOpenRead(PGX, gdxFname, ErrNr) IF (ErrNr /= 0) CALL ReportIOError(ErrNr,'gdxOpenRead') RC = gdxFileVersion(PGX,Msg,Producer) WRITE(*,*) 'GDX file written using version: ',Msg WRITE(*,*) 'GDX file written by: ',Producer ok = 0 .ne. gdxFindSymbol(PGX,'x',VarNr) IF (.NOT. ok) THEN WRITE(*,*) '**** Could not find variable X' CALL gdxExit(1) END IF RC = gdxSymbolInfo(PGX,VarNr,VarName,Dim,VarTyp) IF (Dim /= 2 .OR. DT_VAR /= VarTyp) THEN WRITE(*,*) '**** X is not a two dimensional variable: ',Dim,':',VarTyp CALL gdxExit(1) END IF ok = 0 .ne. gdxDataReadStrStart(PGX,VarNr,NrRecs) IF (.NOT. ok) CALL ReportGDXError(PGX) WRITE(*,*) 'Variable X has ',NrRecs,' records' DO WHILE (0 .ne. gdxDataReadStr(PGX,Indx,Values,N)) IF (0D0 == Values(VAL_LEVEL)) CYCLE ! skip, level 0.0 is default DO D = 1,Dim IF (D /= DIM) THEN WRITE(*,*) Indx(D) ,'.' ELSE WRITE(*,*) Indx(D) END IF END DO write(*,*) ' = ', Values(VAL_LEVEL) END DO WRITE(*,*) 'All solution values shown' RC = gdxDataReadDone(PGX) END IF ErrNr = gdxClose(PGX) IF (ErrNr /= 0) CALL ReportIOError(ErrNr,'gdxClose') ok = gdxFree(PGX) IF (.NOT. ok) THEN WRITE(*,*) 'Problems unloading the GDX DLL' CALL gdxExit(1) END IF CONTAINS SUBROUTINE ReportGDXError(PGX) INTEGER(KIND=8), INTENT(IN) :: PGX CHARACTER(LEN=256) :: S WRITE (*,*) '**** Fatal GDX Error' GDX GAMS Data Exchange Example programs GAMS Data Exchange API 1.6 Page 22 2.4 12/3/2012
GAMS Data Exchange API 1.6 RC = gdxErrorStr(PGX, gdxGetLastError(PGX), S) WRITE (*,*) '**** ', S STOP END SUBROUTINE ReportGDXError SUBROUTINE ReportIOError(N, msg) INTEGER(KIND=4), INTENT(IN) :: N CHARACTER(LEN=*), INTENT(IN) :: msg WRITE(*,*) '**** Fatal I/O Error = ', N, ' when calling ', msg STOP END SUBROUTINE ReportIOError SUBROUTINE WriteData(PGX, S, V) INTEGER(KIND=8), INTENT(IN) :: PGX CHARACTER(LEN=*), INTENT(IN) :: S REAL(KIND=8), INTENT(IN) :: V Indx(1) = S Values(VAL_LEVEL) = V RC = gdxDataWriteStr(PGX,Indx,Values) END SUBROUTINE WriteData END PROGRAM example1 1.6.6 Example 6: Python program This program has the same functionality as the Delphi program in Example1; see GAMS and Delphi ( see Example 1 in Delphi, page 12). from gdxcc import * import sys import os numberParams = len(sys.argv) if numberParams < 2 or numberParams > 3: print "**** Usage:", sys.argv[0], "sysDir [gdxinfn]" os._exit(1) print sys.argv[0], "using GAMS system directory:", sys.argv[1] gdxHandle = new_gdxHandle_tp() rc = gdxCreateD(gdxHandle, sys.argv[1], GMS_SSSIZE) assert rc[0],rc[1] print "Using GDX DLL version: " + gdxGetDLLVersion(gdxHandle)[1] if numberParams == 2: assert gdxOpenWrite(gdxHandle, "demanddata.gdx", "example1")[0] assert gdxDataWriteStrStart(gdxHandle, "Demand", "Demand data", 1, GMS_DT_PAR , 0) values = doubleArray(GMS_VAL_MAX) values[GMS_VAL_LEVEL] = 324.0 gdxDataWriteStr(gdxHandle, ["New-York"], values) values[GMS_VAL_LEVEL] = 299.0 gdxDataWriteStr(gdxHandle, ["Chicago"], values) values[GMS_VAL_LEVEL] = 274.0 gdxDataWriteStr(gdxHandle, ["Topeka"], values) assert gdxDataWriteDone(gdxHandle) print "Demand data written by example1" else: assert gdxOpenRead(gdxHandle, sys.argv[2])[0] 2.4 12/3/2012 ret, fileVersion, producer = gdxFileVersion(gdxHandle) print "GDX file written using version: "+fileVersion print "GDX file written by: "+producer ret, symNr = gdxFindSymbol(gdxHandle, "x") assert ret, "Symbol x not found" GDX GAMS Data Exchange Example programs Example 6: Python program Page 23 Page 23
Page 1: GAMS Data Exchange API System and R
Page 5 and 6: GAMS Data Exchange API 1.1 1 GDX GA
Page 7 and 8: GAMS Data Exchange API 1.2 Before w
Page 9 and 10: GAMS Data Exchange API 1.2 correspo
Page 11 and 12: GAMS Data Exchange API 1.3 gdxSymbo
Page 13 and 14: GAMS Data Exchange API 1.4 then beg
Page 15 and 16: GAMS Data Exchange API 1.6 gdxDataE
Page 17 and 18: GAMS Data Exchange API 1.6 Sysdir :
Page 19 and 20: GAMS Data Exchange API 1.6 return s
Page 21 and 22: GAMS Data Exchange API 1.6 if (Vals
Page 23 and 24: GAMS Data Exchange API 1.6 } cout
Page 25: GAMS Data Exchange API 1.6 End Sub
Page 29 and 30: GAMS Data Exchange API 1.6 GDX GAMS
Page 31 and 32: GAMS Data Exchange API 1.6 static v
Page 33 and 34: GAMS Data Exchange API 1.8 For Delp
Page 35 and 36: GAMS Data Exchange API 2.1 2 Symbol
Page 37 and 38: GAMS Data Exchange API 2.1 TGXFileO
Page 39 and 40: GAMS Data Exchange API 2.1 Return V
Page 41 and 42: GAMS Data Exchange API 2.1 Paramete
Page 43 and 44: GAMS Data Exchange API 2.1 DOMC_EXP
Page 47 and 48: GAMS Data Exchange API 2.1 end; TGX
Page 49 and 50: GAMS Data Exchange API 2.1 Type of
Page 53 and 54: GAMS Data Exchange API 2.1 String t
Page 55 and 56: GAMS Data Exchange API 2.1 Name of
Page 57 and 58: GAMS Data Exchange API 2.1 Descript
Page 59 and 60: GAMS Data Exchange API 2.1 Tracing
Page 69 and 70: GAMS Data Exchange API 2.2 Unit gdx
Page 71 and 72: GAMS Data Exchange API 2.2 Unit Err
Page 73 and 74: GAMS Data Exchange API 2.2 Notes Th
Page 77 and 78:
GAMS Data Exchange API 2.2 Unit gdx
Page 79 and 80:
GAMS Data Exchange API 2.2 See Also
Page 81 and 82:
GAMS Data Exchange API 2.2 2.2.64 g
Page 83 and 84:
GAMS Data Exchange API 2.2 Paramete
Page 85 and 86:
GAMS Data Exchange API 2.2 Unit std
Page 87 and 88:
Page 89 and 90:
GAMS Data Exchange API 2.2 Paramete
Page 91 and 92:
GAMS Data Exchange API 2.2 Notes Th
Page 93 and 94:
GAMS Data Exchange API 2.2 Pointer
Page 95 and 96:
Page 97 and 98:
GAMS Data Exchange API 2.3 Unit Int
Page 99 and 100:
GAMS Data Exchange API 2.7 Unit gxd
Page 101:
GAMS Data Exchange API 2.9 Constant
Page 104 and 105:
Page 100 CgdxUMFindUEL 70 CgdxUMUel
Page 106 and 107:
Page 102 CgdxSymbolGetComment 68 Cg
Page 108 and 109:
Page 104 Reading data using integer
show all

GAMS Data Exchange API

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?