Subroutine to print where the program stops in case of an error
S u b r o u t i n e
t o
p r i n t
w h e r e
t h e
p r o g r a m
s t o p s
i n
c a s e
o f
a n
e r r o r
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=8), | intent(in) | :: | c |
Input string |