Hello all
I have a problem with my VDLOAD file for abaqus.
My vdload.for file is:
C
C User subroutine VDLOAD
subroutine vdload (
C Read only (unmodifiable) variables -
* nblock, ndim, stepTime, totalTime,
* amplitude, curCoords, velocity, dircos,
* jltyp, sname,
C Write only (modifiable) variable -
* value )
C
include 'vaba_param.inc'
parameter (zini = 4.5,
*vel = 30,
*dlen = 0.166666667,
*pressure = 0.7d6)
C
dimension curCoords(nblock,ndim),
* velocity(nblock,ndim),
* dircos(nblock,ndim,ndim),
* value(nblock)
character*80 sname
C -------------------------------------------------------------
C distan为steptime时间内荷载移动的距离（车速vel为30km/h）；
C zmax和zmin分别为荷载的上下边界（两者相距dlen为0.166666667m）；
C -------------------------------------------------------------
distan=vel*stepTime
zc=zini-distan
zmax=zc
zmin=zmax-dlen
do 100 k=1, nblock
if(curCoords(k,3).lt.zmax.and.curCoords(k,3).ge.zmin) then
value(k)=pressure
else
value(k)=0
end if
100 continue
return
end
But after I submit my job, there is a problem:
Problem during compilation - C:\Temp\vdload30.for
Please help me
What's wrong about the code above ?
Thanks so much !!!
What's inside the Job log file?
Dear Mark,
Could you plaese write more about what is inside the job log file (Jobname.log)?
Best,
Mohammad
This is the log
This is the log file:
Abaqus JOB chayfile
Abaqus 6.10-1
C:\SIMULIA\Abaqus\6.10-1\Python\Lib\jabber.py:68: DeprecationWarning: the sha module is deprecated; use the hashlib module instead
Begin Compiling Double Precision Abaqus/Explicit User Subroutines
05/19/13 03:22:46
fortcom: Error: First statement in file must not be continued
vdload30.for(4) : Error: Illegal character in statement label field [*]
* nblock, ndim, stepTime, totalTime,
----^
vdload30.for(2) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> ...
subroutine vdload (
-------------------------^
vdload30.for(5) : Error: Illegal character in statement label field [*]
* amplitude, curCoords, velocity, dircos,
----^
vdload30.for(4) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> ...
* nblock, ndim, stepTime, totalTime,
-----------------------------------------^
vdload30.for(6) : Error: Illegal character in statement label field [*]
* jltyp, sname,
----^
vdload30.for(5) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> ...
* amplitude, curCoords, velocity, dircos,
----------------------------------------------^
vdload30.for(8) : Error: Illegal character in statement label field [*]
* value )
----^
vdload30.for(6) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: ( * :: <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> ...
* jltyp, sname,
--------------------^
vdload30.for(8) : Error: Unbalanced parentheses
* value )
------------^
vdload30.for(11) : Error: Invalid character_kind_parameter. No underscore
parameter (zini=4.5,vel=30,dlen=0.166666667,pressure=0.7d6)
------^
vdload30.for(11) : Error: Unbalanced parentheses
parameter (zini=4.5,vel=30,dlen=0.166666667,pressure=0.7d6)
---------------------------------------------------------------^
vdload30.for(13) : Error: Unbalanced parentheses
dimension curCoords(nblock,ndim),
------------------------------------^
vdload30.for(14) : Error: Illegal character in statement label field [*]
* velocity(nblock,ndim),
----^
vdload30.for(8) : Error: Syntax error, found ')' when expecting one of: => = . ( : %
* value )
------------^
vdload30.for(15) : Error: Illegal character in statement label field [*]
* dircos(nblock,ndim,ndim),
----^
vdload30.for(14) : Error: Syntax error, found ',' when expecting one of: => = . ( %
* velocity(nblock,ndim),
---------------------------^
vdload30.for(16) : Error: Illegal character in statement label field [*]
* value(nblock)
----^
vdload30.for(15) : Error: Syntax error, found ',' when expecting one of: => = . ( %
* dircos(nblock,ndim,ndim),
------------------------------^
vdload30.for(17) : Error: Syntax error, found IDENTIFIER 'HARACTER' when expecting one of: => = . ( %
character*80 sname
------^
vdload30.for(29) : Error: Illegal character in statement label field [c]
100 continue
----^
vdload30.for(29) : Error: A continuation character is illegal on a line with a statement label
100 continue
-----^
vdload30.for(28) : Error: Syntax error, found IDENTIFIER 'NDIF' when expecting one of: .EQV. .NEQV. .XOR. .OR. .AND. .LT. < .LE. <= .EQ. == .NE. /= .GT. > ...
end if
------^
vdload30.for(31) : Error: Syntax error, found END-OF-STATEMENT when expecting one of: => = . ( : %
end
--------^
vdload30.for(27) : Error: This statement function has been defined more than once. [VALUE]
value(k)=0
---------^
vdload30.for(29) : Error: This is an invalid statement; an END [PROGRAM] statement is required.
100 continue
^
vdload30.for(29) : Error: This name does not match the unit name. [NTINUEETURNND]
100 continue
------^
vdload30.for(25) : Info: This statement function has not been used. [VALUE]
value(k)=pressure
---------^
compilation aborted for vdload30.for (code 1)
Abaqus Error: Problem during compilation - C:\Temp\vdload30.for
Abaqus/Analysis exited with errors
Please help me, it is very important for me
This is my problem:
Please download the book and open the page 141 (7.2.3):
Link download: http://www.mediafire.com/?29vx1h9j1xy7jio
and the VDLOAD30.for is on the page: 158
Thanks in advance !
header incorrect
use the header as defined in the manual
------------------------------------------
Ruhr-University
Bochum
Germany
In reply to header incorrect by Frank Richter
Please help me what's wrong
Please help me what's wrong ?
Abaqus manual will help you
Dear Mark,
All of your errors return to the header part. Copy and paste first 21 lines of your subroutine from VDLOAD section of abaqus manual, then edit parameter section by your values.
Best,
Excuse me , I have a
Excuse me , I have a question as I know that the Dload means Distribute load which is set on a surface ,how can I set the moving force on a point Thank you very much !