56 CHARACTER(CHRLEN+4) :: fname
63 'RFLO_OpenConverFile.F90' )
67 IF (global%myProcid == masterproc)
THEN
68 fname = trim(global%outDir)//trim(global%casename)//
'.con'
72 IF ((global%flowType==flow_unsteady .AND. global%currentTime>0._rfreal).OR.&
73 (global%flowType==flow_steady .AND. global%currentIter>1))
THEN
74 OPEN(if_conver,file=fname,
form=
'formatted',
status=
'old', &
75 position=
'append',iostat=errorflag)
77 OPEN(if_conver,file=fname,
form=
'formatted',
status=
'unknown', &
80 global%error = errorflag
81 IF (global%error /= 0) &
82 CALL
errorstop( global,err_file_open,__line__,
'File: '//trim(fname) )
subroutine registerfunction(global, funName, fileName)
int status() const
Obtain the status of the attribute.
subroutine rflo_openconverfile(global)
**********************************************************************Rocstar Simulation Suite Illinois Rocstar LLC All rights reserved ****Illinois Rocstar LLC IL **www illinoisrocstar com **sales illinoisrocstar com WITHOUT WARRANTY OF ANY **EXPRESS OR INCLUDING BUT NOT LIMITED TO THE WARRANTIES **OF FITNESS FOR A PARTICULAR PURPOSE AND **NONINFRINGEMENT IN NO EVENT SHALL THE CONTRIBUTORS OR **COPYRIGHT HOLDERS BE LIABLE FOR ANY DAMAGES OR OTHER WHETHER IN AN ACTION OF TORT OR **Arising OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE **USE OR OTHER DEALINGS WITH THE SOFTWARE **********************************************************************INTERFACE SUBROUTINE form
subroutine errorstop(global, errorCode, errorLine, addMessage)
subroutine deregisterfunction(global)