arret.F File Reference

#include "implicit_f.inc"
#include "units_c.inc"
#include "titr_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	arret (nn)

Function/Subroutine Documentation

arret()

subroutine arret

(

integer

nn

)

Definition at line 85 of file arret.F.

      USE message_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER NN
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "units_c.inc"
#include      "titr_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER N
      INTEGER EXIT_VALUE
#ifdef DNC
      CALL starter_lic_release()
#endif
      n=nn
      !-------------------------!
      !   STOPPING COMPUTATION  !
      !-------------------------!
      IF(n==2 .OR. n==3) THEN
        WRITE(istdo,1000)
        WRITE(iout,1000)
 1000   FORMAT(//,' RADIOSS STOP DUE TO INPUT ERROR')
      ENDIF
      
      IF(n/=3 .AND. ierr>0)n=2
      
C-----------------------------------------------
C Summary Errors/Warnings
C-----------------------------------------------
      CALL summsg()
C-----------------------------------------------
 
      IF(n==2) THEN
        ierr=max0(ierr,1)
           WRITE(istdo,'(///A/A/,5X,I10,A)')titre(7)(1:40),titre(5),ierr,titre(7)(41:60)
           WRITE(iout ,'(///A/A/,5X,I10,A)')titre(7)(1:40),titre(5),ierr,titre(7)(41:60)
      ENDIF
      
      IF(n==1.OR.iwarn>0) THEN
        IF(iwarn==0) THEN
           WRITE(istdo,'(///A/A)')titre(6),titre(5)
           WRITE(iout ,'(///A/A)')titre(6),titre(5)
        ELSE
           WRITE(istdo,'(///A/A/,5X,I10,A)')titre(8)(1:40),titre(5),iwarn,titre(8)(41:60)
           WRITE(iout ,'(///A/A/,5X,I10,A)')titre(8)(1:40),titre(5),iwarn,titre(8)(41:60)
        ENDIF
      ENDIF
      CLOSE (unit=iout)
 
 
      IF(n == 2.OR. n ==3 )THEN
        CALL my_exit(n)
      ELSE
        exit_value=0
        CALL my_exit(exit_value)
      ENDIF