Ein freundliches hallo an alle CAD-Nutzer,
ich habe eine Subroutine für Abaqus geschrieben und habe nun leider das Problem, dass wenn ich diese zusammen mit dem Abaqus-Job aufrufe, die Compilierung abgebrochen wird. Um einen Fehler aufgrund der Kriechgleichung auszuschließen, habe ich eine sehr vereinfachte Version genommen aber auch diese bricht mit einem Compilierungsfehler ab. Da ich neu in Fortran bin, habe ich, wie es den Anschein macht, Fehler gemacht. Daher wäre es sehr nett wenn sich jemand kurz die Zeit nehmen würde um sich die (sehr vereinfachte) Version der creep.f ansehen könnte und mir erklären könnte was ich anders muss. Ich habe Erfahrung in C, aber für diese Creep.f habe ich eigentlich einfach nur die Standardversion von Abaqus genommen.
Ich bin für Hilfe sehr dankbar!
Die Fehlermeldung sieht wie folgt aus:
Mon 28 Jan 2013 04:14:14 PM CET
perl: warning: Setting locale failed.
perl: warning: Please check that your locale settings:
LANGUAGE = (unset),
LC_ALL = (unset),
LANG = " "
are supported and installed on your system.
perl: warning: Falling back to the standard locale ("C").
fortcom: Error: Illegal character in statement label field [S]
fortcom: Error: Illegal character in statement label field [U]
fortcom: Error: Illegal character in statement label field [B]
fortcom: Error: Illegal character in statement label field [R]
fortcom: Error: Illegal character in statement label field [O]
fortcom: Error: First statement in file must not be continued
fortcom: Error: creep.f, line 4: Syntax error, found END-OF-STATEMENT when expecting one of: :: , : )
SUBROUTINE CREEP(DECRA,DESWA,STATEV,SERD,EC,ESW,P,QTILD, TEMP,DTEMP,PREDEF,DPRED,TIME,DTIME,CMNAME,LEXIMP,LEND, COORDS,NSTATV,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)
--------------------------------------------------------------------------------------------------------------------------------------------------------------^
fortcom: Error: creep.f, line 11: Syntax error, found INTEGER_CONSTANT '1' when expecting one of: <IDENTIFIER>
DIMENSION DECRA(5),DESWA(5),STATEV(*),PREDEF(*),DPRED(*),TIME(2),1COORDS(*),EC(2),ESW(2)
-------------------------------------------------------------------------^
fortcom: Error: creep.f, line 47: A RETURN statement is invalid in the main program.
RETURN
------^
fortcom: Error: creep.f, line 11: The assumed-size array must be a dummy argument. [STATEV]
DIMENSION DECRA(5),DESWA(5),STATEV(*),PREDEF(*),DPRED(*),TIME(2),1COORDS(*),EC(2),ESW(2)
------------------------------------^
fortcom: Error: creep.f, line 11: The assumed-size array must be a dummy argument. [PREDEF]
DIMENSION DECRA(5),DESWA(5),STATEV(*),PREDEF(*),DPRED(*),TIME(2),1COORDS(*),EC(2),ESW(2)
----------------------------------------------^
fortcom: Error: creep.f, line 11: The assumed-size array must be a dummy argument. [DPRED]
DIMENSION DECRA(5),DESWA(5),STATEV(*),PREDEF(*),DPRED(*),TIME(2),1COORDS(*),EC(2),ESW(2)
--------------------------------------------------------^
fortcom: Error: creep.f, line 11: The assumed-size array must be a dummy argument. [COORDS]
DIMENSION DECRA(5),DESWA(5),STATEV(*),PREDEF(*),DPRED(*),TIME(2),1COORDS(*),EC(2),ESW(2)
--------------------------------------------------------------------------^
compilation aborted for creep.f (code 1)
Abaqus Error: Problem during compilation - creep.f
Abaqus/Analysis exited with errors
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP