Updated script that can be controled by Nodejs web app
This commit is contained in:
@@ -0,0 +1,14 @@
|
||||
subroutine charint(trans, info)
|
||||
character, intent(in) :: trans
|
||||
integer, intent(out) :: info
|
||||
if (trans == 'N') then
|
||||
info = 1
|
||||
else if (trans == 'T') then
|
||||
info = 2
|
||||
else if (trans == 'C') then
|
||||
info = 3
|
||||
else
|
||||
info = -1
|
||||
end if
|
||||
|
||||
end subroutine charint
|
Reference in New Issue
Block a user