User login

You are here

Need help about VDLOAD (Umat file) for abaqus

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 !!!

 

Comments

mmalekan's picture

Dear Mark,

Could you plaese write more about what is inside the job log file (Jobname.log)?

 

Best,

Mohammad

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 !

Frank Richter's picture

 

use the header as defined in the manual

------------------------------------------
Ruhr-University
Bochum
Germany

Please help me what's wrong ?

mmalekan's picture

 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 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 !

Subscribe to Comments for "Need help about VDLOAD (Umat file) for abaqus"

Recent comments

More comments

Syndicate

Subscribe to Syndicate