Commit e8e0023f authored by chan's avatar chan
Browse files

get rid of continuation character "&" so it can be compiled by both free-form...

get rid of continuation character "&" so it can be compiled by both free-form and fixed-form Fortran compiler.
parent 0158b906
......@@ -6,16 +6,16 @@
!
! Fortran includes for MPE Graphics Routines
!
integer MPE_WHITE, MPE_BLACK, MPE_RED, MPE_YELLOW, MPE_GREEN,
& MPE_CYAN, MPE_BLUE, MPE_MAGENTA, MPE_AQUAMARINE,
& MPE_FORESTGREEN, MPE_ORANGE, MPE_MAROON, MPE_BROWN,
& MPE_PINK, MPE_CORAL, MPE_GRAY
parameter( MPE_WHITE = 0, MPE_BLACK = 1, MPE_RED = 2,
& MPE_YELLOW = 3, MPE_GREEN = 4, MPE_CYAN = 5,
& MPE_BLUE = 6, MPE_MAGENTA = 7, MPE_AQUAMARINE = 8,
& MPE_FORESTGREEN = 9, MPE_ORANGE = 10, MPE_MAROON = 11,
& MPE_BROWN = 12, MPE_PINK = 13, MPE_CORAL = 14,
& MPE_GRAY = 15 )
integer MPE_WHITE, MPE_BLACK, MPE_RED, MPE_YELLOW, MPE_GREEN
integer MPE_CYAN, MPE_BLUE, MPE_MAGENTA, MPE_AQUAMARINE
integer MPE_FORESTGREEN, MPE_ORANGE, MPE_MAROON, MPE_BROWN
integer MPE_PINK, MPE_CORAL, MPE_GRAY
parameter( MPE_WHITE = 0, MPE_BLACK = 1, MPE_RED = 2 )
parameter( MPE_YELLOW = 3, MPE_GREEN = 4, MPE_CYAN = 5 )
parameter( MPE_BLUE = 6, MPE_MAGENTA = 7, MPE_AQUAMARINE = 8 )
parameter( MPE_FORESTGREEN = 9, MPE_ORANGE = 10, MPE_MAROON = 11 )
parameter( MPE_BROWN = 12, MPE_PINK = 13, MPE_CORAL = 14 )
parameter( MPE_GRAY = 15 )
!
! A large number of features have been setup to be C-Callable only,
! through the use of global arrays. An example are the logic and button
......@@ -24,7 +24,7 @@
!
! MPE Graphics Return Codes
!
integer MPE_SUCCESS, MPE_ERR_NOXCONNECT, MPE_ERR_BAD_ARGS,
& MPE_ERR_LOW_MEM
parameter (MPE_SUCCESS = 0, MPE_ERR_NOXCONNECT = 1,
& MPE_ERR_BAD_ARGS = 2, MPE_ERR_LOW_MEM = 3)
integer MPE_SUCCESS, MPE_ERR_NOXCONNECT
integer MPE_ERR_BAD_ARGS, MPE_ERR_LOW_MEM
parameter ( MPE_SUCCESS = 0, MPE_ERR_NOXCONNECT = 1 )
parameter ( MPE_ERR_BAD_ARGS = 2, MPE_ERR_LOW_MEM = 3 )
......@@ -7,12 +7,12 @@
!
! MPE Logging Return Codes
!
integer MPE_LOG_OK, MPE_LOG_LOCKED_OUT,
& MPE_LOG_NO_MEMORY, MPE_LOG_FILE_PROB,
& MPE_LOG_NOT_INITIALIZED, MPE_LOG_PACK_FAIL
parameter ( MPE_LOG_OK = 0, MPE_LOG_LOCKED_OUT = 1,
& MPE_LOG_NO_MEMORY = 2, MPE_LOG_FILE_PROB = 3,
& MPE_LOG_NOT_INITIALIZED = 4, MPE_LOG_PACK_FAIL = 5 )
integer MPE_LOG_OK, MPE_LOG_LOCKED_OUT
parameter ( MPE_LOG_OK = 0, MPE_LOG_LOCKED_OUT = 1 )
integer MPE_LOG_NO_MEMORY, MPE_LOG_FILE_PROB
parameter ( MPE_LOG_NO_MEMORY = 2, MPE_LOG_FILE_PROB = 3 )
integer MPE_LOG_NOT_INITIALIZED, MPE_LOG_PACK_FAIL
parameter ( MPE_LOG_NOT_INITIALIZED = 4, MPE_LOG_PACK_FAIL = 5 )
!
! MPE Logging Function Prototypes
!
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment