4. Embedded QUEL for Fortran : Fortran Variables and Data Types : Variable and Type Declarations : Concluding Example
 
Share this page                  
Concluding Example
The following example contains some simple EQUEL/Fortran declarations:
UNIX:
##    declare
C     Variables of each data type
##    byte           dbyte 
##    logical*4      log4 
##    logical        logdef 
##    integer*2      dint2 
##    integer*4      dint4
##    integer        intdef 
##    real*4         dreal4 
##    real*8         dreal8 
##    real           dreal

C     Constant 
##    parameter  (MAXVAL = 1000)

##    character*12   dbname 
##    character*12   drmnam, tblnam, colnam

C     Compiled forms 
##    integer        empfrm, dptfrm 
      external       empfrm,        dptfrm  

VMS:
##    declare
##    byte             d_byte !Variables of each data type
##    logical*1        d_log1
##    logical*2        d_log2
##    logical*4        d_log4
##    logical          d_logdef
##    integer*2        d_int2
##    integer*4        d_int4
##    integer          d_intdef
##    real*4           d_real4
##    real*8           d_real8
##    real             d_realdef
##    double precision d_doub

##    parameter MAX_PERSONS = 1000 ! Constant

##    character*12     dbname/'personnel'/
##    character*12     formname, tablename, columnname

##    structure     /person/ ! Structure with a union
##    byte       age
##    integer    flags
##    union
##            map
##                character*30 full_name
##            end map
##            map
##                character*12 firstname
##                character*18 lastname
##            end map
##    end union
##    end structure
                  ! Record/array of records

##    record /person/ person, p_table(MAX_PERSONS)

##    integer  empfrm, deptform ! Compiled forms
      external empfrm, deptform ! Compiled forms 
Windows:
##    declare
##    byte             d_byte !Variables of each data type
##    logical*1        d_log1
##    logical*2        d_log2
##    logical*4        d_log4
##    logical          d_logdef
##    integer*2        d_int2
##    integer*4        d_int4
##    integer          d_intdef
##    real*4           d_real4
##    real*8           d_real8
##    real             d_realdef
##    double precision d_doub

##    parameter MAX_PERSONS = 1000 ! Constant

##    character*12     dbname/'personnel'/
##    character*12     formname, tablename, columnname

##    structure     /person/ ! Structure with a union
##    byte       age
##    integer    flags
##    union
##            map
##                character*30 full_name
##            end map
##            map
##                character*12 firstname
##                character*18 lastname
##            end map
##    end union
##    end structure
                  ! Record/array of records

##    record /person/ person, p_table(MAX_PERSONS)

##    integer  empfrm, deptform ! Compiled forms
      external empfrm, deptform ! Compiled forms