linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

revision of TecsServer / treat "interest" correctly

Browse Source
This commit is contained in:
cvs
2000-06-02 07:27:19 +00:00
parent 9c093bc2ac
commit 82097034d5
13 changed files with 309 additions and 182 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
tecs/tecs_for.f
View File

@@ -179,11 +179,27 @@ c------------------------------------------------------------------------------
external tecs_err_routine
call ErrSetOutRtn(tecs_err_routine, iolun)
call err_set_outrtn(tecs_err_routine, iolun)
call err_show('Error in TECS')
end
subroutine TECS_WRITE_MSG(IOLUN) !!
!! ================================
!!
!! write out error message of last error and stack info
!!
implicit none
integer IOLUN !! logical unit for output
external tecs_err_routine
call err_set_outrtn(tecs_err_routine, iolun)
call err_short
end
SUBROUTINE TECS_ERR_ROUTINE (LUN, TEXT)
! =======================================
!