forums.silverfrost.com Forum Index forums.silverfrost.com
Welcome to the Silverfrost forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Need to update and compile old Fortran program HELP!!!!

 
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> General
View previous topic :: View next topic  
Author Message
Anonymous
Guest





PostPosted: Sat Feb 25, 2006 10:59 am    Post subject: Need to update and compile old Fortran program HELP!!!! Reply with quote

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: 7916
Location: Salford, UK

PostPosted: Sat Feb 25, 2006 1:32 pm    Post subject: Need to update and compile old Fortran program HELP!!!! Reply with quote

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
View user's profile Send private message AIM Address
Display posts from previous:   
Post new topic   Reply to topic    forums.silverfrost.com Forum Index -> General All times are GMT + 1 Hour
Page 1 of 1

 
Jump to:  
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