Fix fileread getp for single precision data

1 year ago · f5b1661e14
parent 9d6ad2ac85
commit f5b1661e14
1 changed files with 1 additions and 1 deletions
--- a/test/fileread/getp.f90
+++ b/test/fileread/getp.f90
@ -198,7 +198,7 @@ contains
        read(inp_unit,*) kmethd
        read(inp_unit,*) ptype
        read(inp_unit,*) afmt
-        read(inp_unit,*) ipart
+        read(inp_unit,*) part


        call psb_bcast(ctxt,mtrx_file)