erreur.f90

来自「国外大名顶顶的“台风”并行计算流体力学CFD软件的早期版本的源代码」· F90 代码 · 共 28 行

!------------------------------------------------------------------------------!
! Procedure : erreur                      Auteur : J. Gressier
!                                         Date   : Juillet 2002
! Fonction                                Modif  : 
!   Affichage d'une erreur et arret du programme
!   Ecriture sur unite iout et fichier log 
!
!------------------------------------------------------------------------------!
subroutine erreur(str1, str2)
use OUTPUT
implicit none

! -- Declaration des entrees --
integer          iout            ! numero d'unite pour les erreurs
character(len=*) str1            ! chaine 1
character(len=*) str2            ! chaine 2

! -- Debut de la procedure --

write(uf_stdout,'(aaaaa)') "!!! Erreur ",trim(str1)," : ",trim(str2)," !!!"
write(uf_log,'(a)')    "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
write(uf_log,'(aaaa)')    "[STOP] Erreur ",trim(str1)," : ",trim(str2)

stop

endsubroutine erreur