Achieving the power of the print statement with subroutines without preprocessing?

Question

Since Fortran subroutines require everything to be declared, we can't easily write a custom print subroutine with the same power and flexibility as the print statement.

Throughout the code we have print statements each with multiple if statements to handle the parallel processing and the chosen debug output mode. Many different types of variables with different formats are printed, including matrices with their respective do-loops.

We simply want to write a print statement as normal in addition to one integer which represents its debug mode and then find a way to include all of the appropriate if statements for each of these. Trying to achieve this with a subroutine is achievable with a generic interface but requires huge amounts of interface cases covering all of the possible input arrangements. Whereas, this is much more straightforward with preprocessing replacement. Am I missing something majorly useful?

Note that print is NOT an intrinsic procedure. It is a Fortran language statement and that is VERY different and obeys completely different rules. — Vladimir F Героям слава
– Vladimir F Героям слава, Commented Jul 23, 2017 at 8:30

agentp · Accepted Answer · 2017-07-23 16:59:33Z

3

one device you may find useful, use the intrinsic write internal to a string, then pass the string to your debug-handling subroutine, eg:

    character(len=100) :: string
    ...
    write(string,*)"var1:",var1,"var2:",var2
    call debugout(string,debugflags)

then in the subroutine you can have your switches to decide what to do with the string.

edited Jul 23, 2017 at 16:59

answered Jul 23, 2017 at 13:39

agentp

7,0072 gold badges22 silver badges39 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

jacob richardson Over a year ago

Thank you, that is a very useful

Collectives™ on Stack Overflow

Achieving the power of the print statement with subroutines without preprocessing?

1 Answer 1

1 Comment

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Linked

Related