Commit 7753cb2d authored by Matthias Redies's avatar Matthias Redies

remove annoying warings

parent 8b5925a9
...@@ -420,7 +420,6 @@ contains ...@@ -420,7 +420,6 @@ contains
s_mtx = shape(mtx) s_mtx = shape(mtx)
header_len = len(dict_str(var_type, s_mtx)) header_len = len(dict_str(var_type, s_mtx))
write (*,*) "Warning: write cmplx not supported by XLF"
open(unit=p_un, file=filename, form="unformatted",& open(unit=p_un, file=filename, form="unformatted",&
access="stream") access="stream")
...@@ -454,7 +453,6 @@ contains ...@@ -454,7 +453,6 @@ contains
s_vec = shape(vec) s_vec = shape(vec)
header_len = len(dict_str(var_type, s_vec)) header_len = len(dict_str(var_type, s_vec))
write (*,*) "Warning: write cmplx not supported by XLF"
open(unit=p_un, file=filename, form="unformatted",& open(unit=p_un, file=filename, form="unformatted",&
access="stream") access="stream")
...@@ -511,7 +509,6 @@ contains ...@@ -511,7 +509,6 @@ contains
s_mtx = shape(mtx) s_mtx = shape(mtx)
header_len = len(dict_str(var_type, s_mtx)) header_len = len(dict_str(var_type, s_mtx))
write (*,*) "Warning: write cmplx not supported by XLF"
open(unit=p_un, file=filename, form="unformatted",& open(unit=p_un, file=filename, form="unformatted",&
access="stream") access="stream")
...@@ -545,7 +542,6 @@ contains ...@@ -545,7 +542,6 @@ contains
s_vec = shape(vec) s_vec = shape(vec)
header_len = len(dict_str(var_type, s_vec)) header_len = len(dict_str(var_type, s_vec))
write (*,*) "Warning: write cmplx not supported by XLF"
open(unit=p_un, file=filename, form="unformatted",& open(unit=p_un, file=filename, form="unformatted",&
access="stream") access="stream")
...@@ -604,7 +600,6 @@ contains ...@@ -604,7 +600,6 @@ contains
s_mtx = shape(mtx) s_mtx = shape(mtx)
header_len = len(dict_str(var_type, s_mtx)) header_len = len(dict_str(var_type, s_mtx))
write (*,*) "Warning: write cmplx not supported by XLF"
open(unit=p_un, file=filename, form="unformatted",& open(unit=p_un, file=filename, form="unformatted",&
access="stream") access="stream")
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment