1
2
3
4
5
6
7
8
9
10
11
12
13
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
|
|
