Skip to content

Instantly share code, notes, and snippets.

@drikosev
Last active Jun 21, 2022
Embed
What would you like to do?
! CHECK THE COMMANDS WHICH SHOULD HAVE EQUAL SIGN
! 10 - no equal sign required
! 11 - equal sign required
integer :: icep = 302 !ie
integer :: nn
character(2) :: ch
character(1050) :: go
parameter(go = &
!01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 & ! cells col
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & ! 1- 20 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & ! 21- 40 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & ! 41- 60 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & ! 61- 80 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & ! 81-100 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !101-120 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !121-140 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !141-160 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !161-180 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !181-200 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !201-220 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !221-240 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !241-260 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !261-280 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !281-300 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !301-320 8-67
&'01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,01,02,' // & !321-340 8-67
&'01,02,01,02,01,02,01,02,01,02,') !341-350 8-37
! __10 20 25 30 35 40 45 50 55 60 65 70__ ! cells col.
ch=go(icep*3-2:icep*3-1) !an extra assignment to a variable
read(ch, '(Z2)') nn
goto(10,11) nn
10 print *, '10: ', 'go=', go(icep*3-2:icep*3-1)
goto 999
11 print *, '11: ', 'go=', go(icep*3-2:icep*3-1)
goto 999
999 end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment