OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
error_alloc.F File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine error_alloc (array, my_ierr0)

Function/Subroutine Documentation

◆ error_alloc()

subroutine error_alloc ( character(*) array,
integer my_ierr0 )

Definition at line 31 of file error_alloc.F.

32
33 USE message_mod
34
35 IMPLICIT NONE
36 INTEGER :: MY_IERR0
37 CHARACTER(*) :: ARRAY
38 IF(my_ierr0/=0) THEN
39 CALL ancmsg(msgid=268,msgtype=msgerror,anmode=anstop,c1=array)
40 CALL arret(2)
41 ENDIF
42
message_mod
Definition message_mod.F:1249
ancmsg
subroutine ancmsg(msgid, msgtype, anmode, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, r1, r2, r3, r4, r5, r6, r7, r8, r9, c1, c2, c3, c4, c5, c6, c7, c8, c9, prmode)
Definition message.F:889
arret
subroutine arret(nn)
Definition arret.F:87