Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
FIND A DAY
PROGRAM READ_DAY IMPLICIT NONE CHARACTER(LEN=6)::FRIDAY,SATURDAY,SUNDAY,MONDAY,TUSEDAY,WEDNESDAY,THURSDAY INTEGER::N=13 TEST1:SELECT CASE(N) CASE(1,8,15,22,29) PRINT*,'FRIDAY' CASE(2,9,16,23,30) PRINT*,'SATURDAY' CASE(3,10,17,24,31) PRINT*,'SUNDAY' CASE(4,11,18,25) PRINT*,'MONDAY' CASE(5,12,19,26) PRINT*,'TUSEDAY' CASE(6,13,20,27) PRINT*,'WEDNESDAY' CASE(7,14,21,28) PRINT*,'THURSDAY' END SELECT TEST1 END PROGRAM READ_DAY
run
|
edit
|
history
|
help
0
A_04 GUASSIAN QUADRATURE METHOD
CHARACTER REVOLVING
IF GO TO
Input Output formatting
Rvc
euler-cromer
Sum of inverse square series
gauss seidel and jacobi
A_002 GUASSIAN ELIMINATION METHOD
Square even loop