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
euler-cromer
Gauss seidal
hello world
A_01 NEWTON_RM(B(III))
Fhhjhh
A_01 NEWTON_RM(B(II))
exercise
problem_4
SIUM(3.5)