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

version working with also with redhat linux

Browse Source
This commit is contained in:
cvs
2002-06-13 13:05:44 +00:00
parent 442a784e5c
commit ae1ed10f5b
9 changed files with 42 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
tecs/tecs_for.f
View File

@@ -137,8 +137,7 @@ c if INIT exists, read it to get the port number and the start command
endif
end
SUBROUTINE TECS_GET_T (IOLUN, TEMP, IRET) !!
SUBROUTINE TECS_GET_T (IOLUN, TEMP, IRET) !!
!! =========================================
!!
!! Get temperatures and wait if TECS is configuring
@@ -176,8 +175,7 @@ c------------------------------------------------------------------------------
temp(4)=0.0 ! no auxilliary sensor
end
subroutine TECS_WRITE_ERROR(IOLUN) !!
subroutine TECS_WRITE_ERROR(IOLUN) !!
!! ==================================
!!
!! write out error message of last error and stack info
@@ -193,8 +191,7 @@ c------------------------------------------------------------------------------
end
subroutine TECS_WRITE_MSG(IOLUN) !!
subroutine TECS_WRITE_MSG(IOLUN) !!
!! ================================
!!
!! write out error message of last error without stack info
@@ -210,8 +207,7 @@ c------------------------------------------------------------------------------
end
SUBROUTINE TECS_ERR_ROUTINE (LUN, TEXT)
SUBROUTINE TECS_ERR_ROUTINE (LUN, TEXT)
! =======================================
!
! routine called from C