Fails compile with xlf - postnek.f: Conversion from type INTEGER not permitted

[jlost]

Hi, I am trying to compile Nek5000 with xlf/xlc.

Here is my maketools configuration:

#!/bin/bash

# binary path
mkdir -p $HOME/bin
bin_nek_tools="$HOME/bin"

# specify your compilers here
F77="xlf"
CC="xlc"

# enable BIG MEMORY suuport
BIGMEM="true"

And here is the error output:

[u0017592@sys-83764 tools]$ ./maketools all
** underscore_test   === End of Compilation 1 ===
1501-510  Compilation successful for file test_underscore.f.
----------------------
Make genmap...
----------------------
make[1]: Entering directory `/home/u0017592/projects/Nek5000/tools/genmap'
xlf -q64 -c -qrealsize=8 genmap.f
** genmap   === End of Compilation 1 ===
** makemesh   === End of Compilation 2 ===
** linearmsh   === End of Compilation 3 ===
** exitti   === End of Compilation 4 ===
** exitt   === End of Compilation 5 ===
** cscan_dxyz   === End of Compilation 6 ===
** set_d2   === End of Compilation 7 ===
** cscan_bcs   === End of Compilation 8 ===
** rd_bc   === End of Compilation 9 ===
** blank   === End of Compilation 10 ===
** ltrunc   === End of Compilation 11 ===
** indx1   === End of Compilation 12 ===
** cscan   === End of Compilation 13 ===
** readwrite   === End of Compilation 14 ===
** readwrite2   === End of Compilation 15 ===
** log2   === End of Compilation 16 ===
** iglmin   === End of Compilation 17 ===
** ivlmax   === End of Compilation 18 ===
** iglmax   === End of Compilation 19 ===
** glmax   === End of Compilation 20 ===
** glmin   === End of Compilation 21 ===
** icopy   === End of Compilation 22 ===
** cmult2   === End of Compilation 23 ===
** copy   === End of Compilation 24 ===
** copy8   === End of Compilation 25 ===
** izero   === End of Compilation 26 ===
** cfill   === End of Compilation 27 ===
** rint   === End of Compilation 28 ===
** jjnt   === End of Compilation 29 ===
** ifill   === End of Compilation 30 ===
** icadd   === End of Compilation 31 ===
** cadd   === End of Compilation 32 ===
** cmult   === End of Compilation 33 ===
** chcopy   === End of Compilation 34 ===
** getfile2   === End of Compilation 35 ===
** isort   === End of Compilation 36 ===
** iswap_ip   === End of Compilation 37 ===
** iswapt_ip   === End of Compilation 38 ===
** sort   === End of Compilation 39 ===
** csr_sort_colj   === End of Compilation 40 ===
** out_csrmati   === End of Compilation 41 ===
** iranku   === End of Compilation 42 ===
** rec_bisect   === End of Compilation 43 ===
** fill_order   === End of Compilation 44 ===
** count_sep   === End of Compilation 45 ===
** bipart_sort   === End of Compilation 46 ===
** part_clean   === End of Compilation 47 ===
** ident_sep   === End of Compilation 48 ===
** outmatti   === End of Compilation 49 ===
** outmati   === End of Compilation 50 ===
** outmat   === End of Compilation 51 ===
** out_mapfile   === End of Compilation 52 ===
** dmp_mapfile   === End of Compilation 53 ===
** ituple_sort   === End of Compilation 54 ===
** tuple_sort   === End of Compilation 55 ===
** iftuple_ialtb   === End of Compilation 56 ===
** iftuple_altb   === End of Compilation 57 ===
** iftuple_ianeb   === End of Compilation 58 ===
** iftuple_iaeqb   === End of Compilation 59 ===
** tuple_swapt_ip   === End of Compilation 60 ===
** set_outflow   === End of Compilation 61 ===
** assign_order   === End of Compilation 62 ===
** periodic_vtx   === End of Compilation 63 ===
** find_connctd_pairs   === End of Compilation 64 ===
** out_order   === End of Compilation 65 ===
** out_a   === End of Compilation 66 ===
** set_a   === End of Compilation 67 ===
** outaij   === End of Compilation 68 ===
** ipush   === End of Compilation 69 ===
** ipop   === End of Compilation 70 ===
** is_connected   === End of Compilation 71 ===
** spec_bis   === End of Compilation 72 ===
** sbisect   === End of Compilation 73 ===
** glanczos   === End of Compilation 74 ===
** ax   === End of Compilation 75 ===
** ortho1   === End of Compilation 76 ===
** lanczos2   === End of Compilation 77 ===
** calcvec   === End of Compilation 78 ===
** ident   === End of Compilation 79 ===
** rzero   === End of Compilation 80 ===
** glsc2   === End of Compilation 81 ===
** add2s2   === End of Compilation 82 ===
** add2s1   === End of Compilation 83 ===
** reverse_p   === End of Compilation 84 ===
** unique_vertex2   === End of Compilation 85 ===
** out_geofile   === End of Compilation 86 ===
** self_chk   === End of Compilation 87 ===
** mult_chk   === End of Compilation 88 ===
** rd_bc_bin   === End of Compilation 89 ===
** buf_to_bc   === End of Compilation 90 ===
** buf_to_xyz   === End of Compilation 91 ===
** outcheck   === End of Compilation 92 ===
** open_bin_file   === End of Compilation 93 ===
** if_byte_swap_test   === End of Compilation 94 ===
** copyi4   === End of Compilation 95 ===
** copy4   === End of Compilation 96 ===
** copy4r   === End of Compilation 97 ===
** copy48r   === End of Compilation 98 ===
** indx132   === End of Compilation 99 ===
** cell2v   === End of Compilation 100 ===
** cell2v1   === End of Compilation 101 ===
** greedy   === End of Compilation 102 ===
** build_proc_el   === End of Compilation 103 ===
** indxi   === End of Compilation 104 ===
** c2c   === End of Compilation 105 ===
** c2cs   === End of Compilation 106 ===
** outbc   === End of Compilation 107 ===
** breadth_first_fill   === End of Compilation 108 ===
** cell_plot   === End of Compilation 109 ===
** spec_bis_conn   === End of Compilation 110 ===
** sort_count   === End of Compilation 111 ===
** assign_gllnid   === End of Compilation 112 ===
** maptest   === End of Compilation 113 ===
** outcell   === End of Compilation 114 ===
** face_chk   === End of Compilation 115 ===
** find_v2   === End of Compilation 116 ===
** fix_geom   === End of Compilation 117 ===
** mod1   === End of Compilation 118 ===
1501-510  Compilation successful for file genmap.f.
xlc -q64  -c  ../../core/byte.c
xlf -q64 -qrealsize=8 -o /home/u0017592/bin/genmap genmap.o byte.o
make[1]: Leaving directory `/home/u0017592/projects/Nek5000/tools/genmap'

----------------------
Make n2to3...
----------------------
make[1]: Entering directory `/home/u0017592/projects/Nek5000/tools/n2to3'
xlf -q64 -c   n2to3.f
** trans   === End of Compilation 1 ===
** rea23   === End of Compilation 2 ===
** rea2re2   === End of Compilation 3 ===
** re2_bc   === End of Compilation 4 ===
** re2_curve   === End of Compilation 5 ===
** re2_xyz   === End of Compilation 6 ===
** bufchk   === End of Compilation 7 ===
** blank   === End of Compilation 8 ===
** ltrunc   === End of Compilation 9 ===
** indx1   === End of Compilation 10 ===
** readwrite   === End of Compilation 11 ===
** glmax   === End of Compilation 12 ===
** glmin   === End of Compilation 13 ===
** addc   === End of Compilation 14 ===
** cmult   === End of Compilation 15 ===
** copy   === End of Compilation 16 ===
** icopy   === End of Compilation 17 ===
** chcopy   === End of Compilation 18 ===
** rzero   === End of Compilation 19 ===
** izero   === End of Compilation 20 ===
** rzero8   === End of Compilation 21 ===
** rdcurve   === End of Compilation 22 ===
** out_curve   === End of Compilation 23 ===
** mod1   === End of Compilation 24 ===
** sweep_circ   === End of Compilation 25 ===
** out_e_hdr   === End of Compilation 26 ===
** newcurve   === End of Compilation 27 ===
** outcurve   === End of Compilation 28 ===
** get_midside   === End of Compilation 29 ===
** capit   === End of Compilation 30 ===
** exitt   === End of Compilation 31 ===
** exitrr   === End of Compilation 32 ===
** rdparam   === End of Compilation 33 ===
1501-510  Compilation successful for file n2to3.f.
xlc -q64  -c  byte.c
xlf -q64   -o /home/u0017592/bin/n2to3 n2to3.o byte.o
make[1]: Leaving directory `/home/u0017592/projects/Nek5000/tools/n2to3'

----------------------
Make postnek...
----------------------
make[1]: Entering directory `/home/u0017592/projects/Nek5000/tools/postnek'
xlf -q64 -c    postnek.f
** fprep   === End of Compilation 1 ===
** plotit   === End of Compilation 2 ===
** readln   === End of Compilation 3 ===
** drmesh   === End of Compilation 4 ===
** readhs   === End of Compilation 5 ===
** comand   === End of Compilation 6 ===
** setatt   === End of Compilation 7 ===
** setres   === End of Compilation 8 ===
** setloc   === End of Compilation 9 ===
** getpt   === End of Compilation 10 ===
** draxis   === End of Compilation 11 ===
** show   === End of Compilation 12 ===
"postnek.f", line 1977.20: 1516-044 (S) A conversion from type INTEGER is not permitted.
** init   === End of Compilation 13 ===
** tem   === End of Compilation 14 ===
** fill_tx   === End of Compilation 15 ===
** colrbar   === End of Compilation 16 ===
** drfram   === End of Compilation 17 ===
** driso   === End of Compilation 18 ===
** plerr   === End of Compilation 19 ===
** drerr   === End of Compilation 20 ===
** mespos   === End of Compilation 21 ===
** vel   === End of Compilation 22 ===
** dspobj   === End of Compilation 23 ===
** findnam   === End of Compilation 24 ===
** relite   === End of Compilation 25 ===
** initstate   === End of Compilation 26 ===
** dmpstate   === End of Compilation 27 ===
** outstate   === End of Compilation 28 ===
** init0   === End of Compilation 29 ===
** post_reset_window   === End of Compilation 30 ===
** setloc_bdry   === End of Compilation 31 ===
** noncon_chk   === End of Compilation 32 ===
** temvel   === End of Compilation 33 ===
** exitt   === End of Compilation 34 ===
** get_subset_list   === End of Compilation 35 ===
** copy4b   === End of Compilation 36 ===
** copy8b   === End of Compilation 37 ===
** copyi   === End of Compilation 38 ===
** quickfill   === End of Compilation 39 ===
1501-511  Compilation failed for file postnek.f.
make[1]: *** [postnek.o] Error 1
make[1]: Leaving directory `/home/u0017592/projects/Nek5000/tools/postnek'
make: *** [all] Error 1

Seems like this is probably just a minor code problem that xlf is more strict with than gfortran.

[stgeke]

Can you fix this and submit a pull request?

[fischer1]

fixed in postnek.f #124