|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
Anonymous Guest
|
Posted: Sat Feb 25, 2006 10:59 am Post subject: Need to update and compile old Fortran program HELP!!!! |
|
|
I am not a Fortran programmer (I've never used it before) and in order to use a piece of equipment I need to change the fortran source code. I've tried compiling the code using the ft95 compiler and I get the following error:
C:Documents and SettingsJENNIFER LOTTDesktopFlypodDEMO.FOR(2) : error 482 - Invalid character(s) after INTERFACE name
C:Documents and SettingsJENNIFER LOTTDesktopFlypodDEMO.FOR(2) : fatal 52 - Compilation abandoned
Compilation failed
The code starts off as: (along with a description of the function of the program)
INTERFACE TO INTEGER*2 FUNCTION XECTMR(MODE)
INTEGER*2 MODE
END
C
INTERFACE TO INTEGER*2 FUNCTION DJSCNKEY(KEY)
INTEGER*2 KEY
END
C
PROGRAM DEMO
****************************************************************
* *
* THE FUNCTION OF THIS PROGRAM IS TO PROVIDE A DEMON- *
* STRATION OF THE DDL MOTION SYSTEM. THE MAIN BODY OF *
* OF THE PROGRAM EXECUTES AT A 30 HZ RATE. THE FIRST *
* FUNCTION IS TO INITIALIZE THE POD. THIS REQUIRES THAT *
* THE STOP (REALLY SHOULD BE CALLED SYSTEM ENABLE) BE SET *
* TRUE. THE MOTION SYSTEM THEN EXPECTS TO SEE A LOW TO *
* HIGH TRANSITION ON THE START SIGNAL. AFTER THE FLAG *
* NOT-OK IS FALSE, THE SYSTEM CAN BE 'EMPOWERED' AND THEN *
* IS NOW READY TO RUN. *
* *
* AFTER INITIALIZATION, THE POD IS DRIVE THROUGH THE *
* VARIOUS EXCURSION LIMITS. AFTER ALL THREE EXCURSIONS *
* HAVE BEEN EXCERSIZED, EACH AXIS IS DRIVE WITH A SLIGHTLY *
* PHASED SHIFTED SINE WAVE FOR APPROXIMATELY 30 SECONDS. *
* *
* WHEN THE 30 SECONDS HAVE ELAPSED, THE POD IS SETTLED. *
* IF THE SYSTEM FAIL DI IS DETECTED, THE SEQUENCE IS *
* ABORTED. *
* *
* THE OPERATOR MAY CHOOSE TO ABORT THE SEQUENCE BY *
* SELECTED <ALT><ESC>. *
* *
****************************************************************
IMPLICIT NONE
C
INCLUDE 'IOCOMMON.INC'
C
C---- DECLARATIONS
C
c REAL*4 AOMID/0.0/ ! AO MID POINT VALUE (0)
c REAL*4 AOMAX(3)/7.08,18.0,20./ ! AO MAX VALUE (11.82 IN)
c REAL*4 AOMIN(3)/-7.08,-24.,-20./! AO MIN (3.5 IN)
REAL*4 AOMID/5.91/ ! AO MID POINT VALUE (0)
REAL*4 AOMAX(3)/11.82,11.82,11.82/ ! AO MAX VALUE (11.82 IN)
REAL*4 AOMIN(3)/0.,0.,0./! AO MIN (0 IN)
REAL*4 AOAMP/5.50/ ! SINE WAVE AMPLITUDE (IN)
INTEGER*1 CR /13/ ! CARRIAGE RETURN
INTEGER*2 CYCLE ! CYCLE COUNTER
REAL*4 DIFF(3) ! DIFFERENCE
INTEGER*2 DJSCNKEY ! KEY SCAN FUNCTION
INTEGER*2 EXCRTIME /1/ ! EXCURSION TIME TIME (SEC)
INTEGER*2 EXCUR ! EXCURSION 1-HEAVE,2-ROLL,3-PITCH
INTEGER*2 I ! COUNTER
INTEGER*2 INITCASE ! INIT STATE FLAG
INTEGER*2 ITER ! ITERATION RATE
PARAMETER(ITER=120) ! ITERATION RATE
REAL*4 ITERINV ! ITERATION RATE INVERSE
PARAMETER(ITERINV=1.0/ITER) ! ITERATION RATE INVERSE
REAL*4 MAXCMD ! MAX CMD
LOGICAL*1 MAXLMT /.FALSE./ ! MAXIMUM LIMIT REACHED
REAL*4 MIDCMD ! MID CMD
REAL*4 MINCMD ! MIN CMD
LOGICAL*1 MINLMT /.FALSE./ ! MINIMUM LIMIT REACHED
REAL*4 OMEGA(3)/.5,.45,.55/ ! SINE FREQ (Hz)
INTEGER*2 PHASE ! PHASE (1-INIT,2-EXCUR,3-SINE)
C |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7924 Location: Salford, UK
|
Posted: Sat Feb 25, 2006 1:32 pm Post subject: Need to update and compile old Fortran program HELP!!!! |
|
|
Jennifer
This code is not standard Fortran and contains non-standard keyword (like TO) that FTN95 does not recognise. You will not be able to compile this program with FTN95 without first converting it to standard Fortran. We could possibly do the conversion for you but we would have to make a charge for this service.
Regards
Paul |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|