OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
user_output.F File Reference
#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines

subroutine user_output (iout, ilaw, rootn, rootlen)

Function/Subroutine Documentation

◆ user_output()

subroutine user_output ( integer iout,
integer ilaw,
character*80 rootn,
integer rootlen )

Definition at line 27 of file user_output.F.

28C-----------------------------------------------
29C I m p l i c i t T y p e s
30C-----------------------------------------------
31#include "implicit_f.inc"
32C-----------------------------------------------
33C D u m m y A r g u m e n t s
34C-----------------------------------------------
35 INTEGER IOUT,ILAW,ROOTLEN
36 CHARACTER*80 ROOTN
37C-----------------------------------------------
38C L o c a l V a r i a b l e s
39C-----------------------------------------------
40 INTEGER INPUTF,LEN
41 CHARACTER FILNAM*512,CLAW*4,LINE*500
42 INTEGER LEN_FILNAM
43 LOGICAL TEST
44C-----------------------------------------------
45 test=.true.
46 WRITE(claw,'(I4.4)')ilaw
47 filnam ='SO'//rootn(1:rootlen)//'_'//claw//'.scr'
48 len_filnam=len_trim(filnam)
49
50 inputf=31
51
52 OPEN(unit=inputf,
53 . form='FORMATTED',
54 . file=filnam(1:len_filnam),
55 . action='READ' )
56
57 DO WHILE(test)
58 READ(inputf,END=999,FMT='(A)')line
59 len=len_trim(line)
60 WRITE(iout,fmt='(A)')line(1:len)
61 ENDDO
62 999 CONTINUE
63
64 CLOSE(unit=inputf)
65
66C Delete Output file
67 CALL delete_user_file(filnam,len_filnam)
68