Searched defs:messages_print_stress (Results 1 – 1 of 1) sorted by relevance
| /dports/science/octopus/octopus-10.5/src/basic/ |
| H A D | messages.F90 | 817 subroutine messages_print_stress(iunit, msg, namespace) subroutine
818 integer, intent(in) :: iunit
819 character(len=*), optional, intent(in) :: msg
820 type(namespace_t), optional, intent(in) :: namespace
822 integer, parameter :: max_len = 70
824 integer :: ii, jj, length
825 character(len=70) :: str
826 character(len=max_len) :: msg_combined
|