Program compile

program compile

        ! Uses
    use mpsge

        ! Calls
    call buildmodel
    call chkdemand
    call chkprod
    call functions
    call indices
    call parse
    call readcoef
    call readmps
    call readnest
    call readvar
    call sectors
    call testsym
    call writemodel

        ! Types
    type gmsrecord

        ! Variables
    type (gmsrecord), pointer :: gmsrecords
    type (gmsrecord), pointer :: lastrecord
    character (len=255) :: fname

        ! Subroutines and functions
    subroutine testsym ()
    subroutine fnecho ()
    subroutine nlist (sn)
    subroutine elist (el)
    subroutine indices ()
    subroutine buildmodel ()
    subroutine writemkt (s)
    subroutine writenetput (np, fn, rec)
    subroutine writeendowment (e, fn, rec)
    subroutine writefinaldemand (fn, rec)
    subroutine dchk (set, dm, domainele)
    subroutine writename (name, prefix, domain, indx)
    subroutine setalias (set, domain)
    subroutine functions ()
    subroutine cobbdouglas (n, fnf, rec)
    subroutine ces (n, fnf, rec)
    subroutine leontief (n, fnf, rec)
    logical function defined (n)
    subroutine nextnest (n)
    subroutine formv (f, default, value)
    subroutine noparens (value)
    subroutine writegms (rectype, lrec, rrec)
    subroutine writemodel ()
    subroutine writetype (tabin, type)

end program compile

Description of Types

type gmsrecord
    character (len=1024) :: left
    character (len=1024) :: right
    character (len=32) :: type
    type (gmsrecord), pointer :: next
end type gmsrecord

Description of Variables

type (gmsrecord), pointer :: gmsrecords

type (gmsrecord), pointer :: lastrecord

character (len=255) :: fname

Description of Subroutines and Functions

subroutine testsym ()
    ! Calls: writegms
end subroutine testsym

subroutine fnecho ()
    ! Calls: elist, nlist
end subroutine fnecho

subroutine nlist (sn)
    type (nestlist), pointer :: sn
end subroutine nlist

subroutine elist (el)
    type (netputlist), pointer :: el
    ! Calls: writedomain
end subroutine elist

subroutine indices ()
    ! Calls: nextnest
end subroutine indices

subroutine buildmodel ()
    ! Calls: tab2blank, writegms, writemkt, writeparam
end subroutine buildmodel

subroutine writemkt (s)
    type (symbol), pointer :: s
    ! Calls: nextnest, writedomain, writeendowment, writefinaldemand, writegms, writenetput
end subroutine writemkt

subroutine writenetput (np, fn, rec)
    type (netput), pointer :: np
    type (function), pointer :: fn
    character (len=*) :: rec
    ! Calls: dchk, domainlabels, setalias, writename
end subroutine writenetput

subroutine writeendowment (e, fn, rec)
    type (endowment), pointer :: e
    type (function), pointer :: fn
    character (len=*) :: rec
    ! Calls: dchk, domainlabels, setalias, writename
end subroutine writeendowment

subroutine writefinaldemand (fn, rec)
    type (function), pointer :: fn
    character (len=*) :: rec
    ! Calls: dchk, domainlabels, setalias, writename
end subroutine writefinaldemand

subroutine dchk (set, dm, domainele)
    character (len=32) :: set
    character (len=32), dimension (10) :: dm
    logical :: domainele
end subroutine dchk

subroutine writename (name, prefix, domain, indx)
    character (len=*) :: name
    character (len=*) :: prefix
    character (len=32), dimension (10) :: domain
    integer :: indx
end subroutine writename

subroutine setalias (set, domain)
    character (len=32) :: set
    character (len=32), dimension (10) :: domain
end subroutine setalias

subroutine functions ()
    ! Calls: ces, cobbdouglas, formv, leontief, nextnest, noparens, writedomain, writegms, writeparam
end subroutine functions

subroutine cobbdouglas (n, fnf, rec)
    type (nest), pointer :: n
    type (field), pointer :: fnf
    character (len=*) :: rec
    ! Calls: writedomain, writeparam
end subroutine cobbdouglas

subroutine ces (n, fnf, rec)
    type (nest), pointer :: n
    type (field), pointer :: fnf
    character (len=*) :: rec
    ! Calls: writedomain, writeparam
end subroutine ces

subroutine leontief (n, fnf, rec)
    type (nest), pointer :: n
    type (field), pointer :: fnf
    character (len=*) :: rec
    ! Calls: writedomain, writeparam
end subroutine leontief

logical function defined (n)
    type (nest), pointer :: n
end function defined

subroutine nextnest (n)
    type (nest), pointer :: n
end subroutine nextnest

subroutine formv (f, default, value)
    type (field), pointer :: f
    character (len=*), intent(in) :: default
    character (len=*), intent(out) :: value
end subroutine formv

subroutine noparens (value)
    character (len=*) :: value
end subroutine noparens

subroutine writegms (rectype, lrec, rrec)
    character (len=*) :: rectype
    character (len=*) :: lrec
    character (len=*) :: rrec
end subroutine writegms

subroutine writemodel ()
    ! Calls: writetype
end subroutine writemodel

subroutine writetype (tabin, type)
    integer :: tabin
    character (len=*) :: type
end subroutine writetype