search

sundarjhu / 2-DUST

2-DUST is a general-purpose dust radiative transfer code for an axisymmetric system that reveals the global energetics of dust grains in the shell and the 2-D projected morphologies of the shell that are strongly dependent on the mixed effects of the axisymmetric dust distribution and inclination angle. It can be used to model a variety of axisymmetric astronomical dust systems.
GNU General Public License v3.0
0 stars 0 forks source link

Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/REAL(4)) #1

Open postagb1 opened 1 week ago

postagb1 commented 1 week ago

Hi sundarjhu and everyone,

When I compiled the mapspec.f90, an error takes place as follows:

-> make mapspec gfortran -O3 -c mapspec.f90 mapspec.f90:625:33:

614 | rhomin DFUNC(RMIN,PIO2)/RSTAR | 2 ...... 625 | rhomin DFUNC(RMIN,0.0d0)/RSTAR | 1 Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/REAL(4)).

I am not a Fortran professional. I just want to use this model. How I solve this problem? Can someone help me with this problem?

Best wishes, Xie

postagb1 commented 1 week ago

Also when I compiled the mapgrid.f90 file, many errors happen as follows: 20771 | ival,ival,dval,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20771:51:

20771 | ival,ival,dval,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:20773:56:

20773 | call ftpr8b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r8vals' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:20777:28:

20777 | ival,ival,i1val,lval,lval,chbuff,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20572:33:

20572 | ival,i2val,i2val,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20582:28:

20582 | ival,i2val,ival,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20582:52:

20582 | ival,i2val,ival,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:20584:56:

20584 | call ftpi4b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'i4vals' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:20588:28:

20588 | ival,i2val,rval,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20588:52:

20588 | ival,i2val,rval,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed INTEGER(2) to REAL(4) fits_io.f90:20590:56:

20590 | call ftpr4b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r4vals' at (1); passed INTEGER(2) to REAL(4) fits_io.f90:20594:28:

20594 | ival,i2val,dval,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20594:52:

20594 | ival,i2val,dval,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed INTEGER(2) to REAL(8) fits_io.f90:20596:56:

20596 | call ftpr8b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r8vals' at (1); passed INTEGER(2) to REAL(8) fits_io.f90:20600:29:

20600 | ival,i2val,i1val,lval,lval,chbuff,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20394:26:

20394 | ival,rval,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20404:23:

20404 | ival,i2val,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20404:47:

20404 | ival,i2val,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed REAL(4) to INTEGER(2) fits_io.f90:20406:56:

20406 | call ftpi2b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed REAL(4) to INTEGER(2) fits_io.f90:20410:22:

20410 | ival,ival,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20410:46:

20410 | ival,ival,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:20412:56:

20412 | call ftpi4b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'i4vals' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:20416:22:

20416 | ival,dval,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20416:46:

20416 | ival,dval,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed REAL(4) to REAL(8) fits_io.f90:20418:56:

20418 | call ftpr8b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r8vals' at (1); passed REAL(4) to REAL(8) fits_io.f90:20422:23:

20422 | ival,i1val,lval,lval,chbuff,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20217:26:

20217 | ival,dval,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20227:23:

20227 | ival,i2val,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20227:47:

20227 | ival,i2val,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed REAL(8) to INTEGER(2) fits_io.f90:20229:56:

20229 | call ftpi2b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed REAL(8) to INTEGER(2) fits_io.f90:20233:22:

20233 | ival,ival,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20233:46:

20233 | ival,ival,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:20235:56:

20235 | call ftpi4b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'i4vals' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:20239:22:

20239 | ival,rval,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20239:46:

20239 | ival,rval,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed REAL(8) to REAL(4) fits_io.f90:20241:56:

20241 | call ftpr4b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r4vals' at (1); passed REAL(8) to REAL(4) fits_io.f90:20245:23:

20245 | ival,i1val,lval,lval,chbuff,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20003:33:

20003 | ival,i1val,i1val,lval,lval,chbuff,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20013:32:

20013 | ival,i1val,i2val,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20013:56:

20013 | ival,i1val,i2val,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed INTEGER(4) to INTEGER(2) fits_io.f90:20015:56:

20015 | call ftpi2b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed INTEGER(4) to INTEGER(2) fits_io.f90:20019:28:

20019 | ival,i1val,ival,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20025:28:

20025 | ival,i1val,rval,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20025:52:

20025 | ival,i1val,rval,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed INTEGER(4) to REAL(4) fits_io.f90:20027:56:

20027 | call ftpr4b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r4vals' at (1); passed INTEGER(4) to REAL(4) fits_io.f90:20031:28:

20031 | ival,i1val,dval,lval,lval,buffer,status) | 1 Error: Rank mismatch in argument 'flgray' at (1) (rank-1 and scalar) fits_io.f90:20031:52:

20031 | ival,i1val,dval,lval,lval,buffer,status) | 1 Error: Type mismatch in argument 'output' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:20033:56:

20033 | call ftpr8b(ounit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r8vals' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:23327:31:

23327 | call ftswi4(i4vals,nvals) | 1 Error: Type mismatch in argument 'buffer' at (1); passed INTEGER(4) to LOGICAL(1) fits_io.f90:23334:31:

23334 | ierr= cray2ieg(1,neven,i4vals,0,i4vals,1,' ') | 1 Error: Rank mismatch in argument 'i3' at (1) (scalar and rank-1) fits_io.f90:23334:40:

23334 | ierr= cray2ieg(1,neven,i4vals,0,i4vals,1,' ') | 1 Error: Rank mismatch in argument 'i5' at (1) (scalar and rank-1) fits_io.f90:23264:37:

23264 | call ftpki2(i2vals,nvals,ctemp) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed INTEGER(2) to CHARACTER(1) fits_io.f90:23264:37:

23264 | call ftpki2(i2vals,nvals,ctemp) | 1 Error: Type mismatch in argument 'temp' at (1); passed CHARACTER(1) to INTEGER(2) fits_io.f90:23267:31:

23267 | call ftswby(i2vals,nvals) | 1 Error: Type mismatch in argument 'buffer' at (1); passed INTEGER(2) to LOGICAL(1) fits_io.f90:23276:16:

23276 | ierr= cray2ieg(7,nvals-3,i2vals,0,i2vals,1,' ') | 1 Error: Type mismatch in argument 'i3' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:23276:16:

23276 | ierr= cray2ieg(7,nvals-3,i2vals,0,i2vals,1,' ') | 1 Error: Type mismatch in argument 'i5' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:23281:13:

23281 | ierr=cray2ieg(7,4,i2vals(nvals/4+1),0,temp,1,' ') | 1 Error: Type mismatch in argument 'i3' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:23281:13:

23281 | ierr=cray2ieg(7,4,i2vals(nvals/4+1),0,temp,1,' ') | 1 Error: Type mismatch in argument 'i5' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:23283:13:

23283 | ierr=cray2ieg(7,nvals,i2vals,0,i2vals,1,' ') | 1 Error: Type mismatch in argument 'i3' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:23283:13:

23283 | ierr=cray2ieg(7,nvals,i2vals,0,i2vals,1,' ') | 1 Error: Type mismatch in argument 'i5' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:23288:50:

23288 | call ftpbyt(ounit,nvals*2,i2vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:23292:57:

23292 | call ftpbyo(ounit,2,nvals,offset,i2vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:22802:26:

22802 | call ftgtbc(1,dtype,rcount,xbcol,length,status) | 1 Error: Rank mismatch in argument 'tdtype' at (1) (rank-1 and scalar) fits_io.f90:22802:32:

22802 | call ftgtbc(1,dtype,rcount,xbcol,length,status) | 1 Error: Rank mismatch in argument 'trept' at (1) (rank-1 and scalar) fits_io.f90:22802:39:

22802 | call ftgtbc(1,dtype,rcount,xbcol,length,status) | 1 Error: Rank mismatch in argument 'tbcol' at (1) (rank-1 and scalar) fits_io.f90:23226:36:

23226 | call ftpcbf(ounit,nvals,chbuff,status) | 1 Error: Rank mismatch in argument 'cbuff' at (1) (scalar and rank-1) fits_io.f90:23230:45:

23230 | call ftpcbo(ounit,1,nvals,offset,chbuff,status) | 1 Error: Rank mismatch in argument 'cbuff' at (1) (scalar and rank-1) fits_io.f90:24852:31:

24852 | call ftswi8(r8vals,nvals) | 1 Error: Type mismatch in argument 'buffer' at (1); passed REAL(8) to LOGICAL(1) fits_io.f90:24855:18:

24855 | call ieevpd(r8vals,r8vals,nvals) | 1 Error: Rank mismatch in argument 'dbl1' at (1) (scalar and rank-1) fits_io.f90:24855:25:

24855 | call ieevpd(r8vals,r8vals,nvals) | 1 Error: Rank mismatch in argument 'dbl2' at (1) (scalar and rank-1) fits_io.f90:24861:33:

24861 | call ftswby(r8vals,nvals*4) | 1 Error: Type mismatch in argument 'buffer' at (1); passed REAL(8) to LOGICAL(1) fits_io.f90:24864:12:

24864 | ierr= cray2ieg(3,nvals,r8vals,0,r8vals,1,' ') | 1 Error: Type mismatch in argument 'i3' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:24864:12:

24864 | ierr= cray2ieg(3,nvals,r8vals,0,r8vals,1,' ') | 1 Error: Type mismatch in argument 'i5' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:24868:46:

24868 | call ftpbyt(ounit,nvals*8,r8vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:24872:53:

24872 | call ftpbyo(ounit,8,nvals,offset,r8vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:24793:31:

24793 | call ftswi4(r4vals,nvals) | 1 Error: Type mismatch in argument 'buffer' at (1); passed REAL(4) to LOGICAL(1) fits_io.f90:24799:33:

24799 | call ftswby(r4vals,nvals*2) | 1 Error: Type mismatch in argument 'buffer' at (1); passed REAL(4) to LOGICAL(1) fits_io.f90:24805:10:

24805 | ierr= cray2ieg(2,neven,r4vals,0,r4vals,1,' ') | 1 Error: Type mismatch in argument 'i3' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:24805:10:

24805 | ierr= cray2ieg(2,neven,r4vals,0,r4vals,1,' ') | 1 Error: Type mismatch in argument 'i5' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:24808:12:

24808 | ierr= cray2ieg(2,1,r4vals(nvals/2+1),0,r4vals(nvals),1,' ') | 1 Error: Type mismatch in argument 'i3' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:24808:12:

24808 | ierr= cray2ieg(2,1,r4vals(nvals/2+1),0,r4vals(nvals),1,' ') | 1 Error: Type mismatch in argument 'i5' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:24813:50:

24813 | call ftpbyt(ounit,nvals*4,r4vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:24817:57:

24817 | call ftpbyo(ounit,4,nvals,offset,r4vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:26361:29:

26361 | if (fttrnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:26384:26:

26384 | if (fttrnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:26902:40:

26902 | if (fttrnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:26915:40:

26915 | if (fttrnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:26691:28:

26691 | if (fttrnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:26714:28:

26714 | if (fttrnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:26524:28:

26524 | if (fttrnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:26547:28:

26547 | if (fttrnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:26807:40:

26807 | if (fttrnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:26820:40:

26820 | if (fttrnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:27076:29:

27076 | if (fttdnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:27099:26:

27099 | if (fttdnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:27514:40:

27514 | if (fttdnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:27527:40:

27527 | if (fttdnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:27399:28:

27399 | if (fttdnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:27422:28:

27422 | if (fttdnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:27237:28:

27237 | if (fttdnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:27260:28:

27260 | if (fttdnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:27609:40:

27609 | if (fttdnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:27622:40:

27622 | if (fttdnn(input(i)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:19381:58:

19381 | call ftpxbo(ounit,gsize,ngroup,offset,array,temp,status) | 1 Error: Type mismatch in argument 'array' at (1); passed INTEGER(4) to CHARACTER(0) fits_io.f90:19381:58:

19381 | call ftpxbo(ounit,gsize,ngroup,offset,array,temp,status) | 1 Error: Type mismatch in argument 'temp' at (1); passed CHARACTER(1) to INTEGER(4) fits_io.f90:18811:37:

18811 | call ftarch(rword,dword,compid) | 1 Error: Type mismatch in argument 'iword' at (1); passed REAL(4) to INTEGER(2) fits_io.f90:18811:37:

18811 | call ftarch(rword,dword,compid) | 1 Error: Type mismatch in argument 'jword' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:28216:40:

28216 | call ftgtbs(iunit,inptr,fchar,nchar,buff,status) | 1 Error: Rank mismatch in argument 'svalue' at (1) (scalar and rank-1) fits_io.f90:28219:41:

28219 | call ftptbs(iunit,outptr,fchar,nchar,buff,status) | 1 Error: Rank mismatch in argument 'svalue' at (1) (scalar and rank-1) fits_io.f90:28237:45:

28237 | call ftptbs(iunit,outptr,fchar,nchar,buff,status) | 1 Error: Rank mismatch in argument 'svalue' at (1) (scalar and rank-1) fits_io.f90:28256:44:

28256 | call ftgtbs(iunit,i,fchar,nchar,buff,status) | 1 Error: Rank mismatch in argument 'svalue' at (1) (scalar and rank-1) fits_io.f90:28259:51:

28259 | call ftptbs(iunit,i+nshift,fchar,nchar,buff,status) | 1 Error: Rank mismatch in argument 'svalue' at (1) (scalar and rank-1) fits_io.f90:28270:49:

28270 | call ftptbs(iunit,outptr,fchar,nchar,buff,status) | 1 Error: Rank mismatch in argument 'svalue' at (1) (scalar and rank-1) fits_io.f90:4718:45:

4718 | call ftgxbf(iunit,nbytes,array,temp,status) | 1 Error: Type mismatch in argument 'array' at (1); passed INTEGER(4) to CHARACTER(0) fits_io.f90:4718:45:

4718 | call ftgxbf(iunit,nbytes,array,temp,status) | 1 Error: Type mismatch in argument 'temp' at (1); passed CHARACTER(1) to INTEGER(4) fits_io.f90:6742:56:

6742 | call ftgi2b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed INTEGER(4) to INTEGER(2) fits_io.f90:6745:68:

6745 | nulchk,i2null,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to INTEGER(2) fits_io.f90:6749:56:

6749 | call ftgr4b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r4vals' at (1); passed INTEGER(4) to REAL(4) fits_io.f90:6752:61:

6752 | nulchk,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to REAL(4) fits_io.f90:6756:56:

6756 | call ftgr8b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r8vals' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:6759:61:

6759 | nulchk,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:6524:56:

6524 | call ftgr4b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r4vals' at (1); passed INTEGER(4) to REAL(4) fits_io.f90:6527:61:

6527 | nulchk,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to REAL(4) fits_io.f90:6531:56:

6531 | call ftgr8b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r8vals' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:6534:61:

6534 | nulchk,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:6306:56:

6306 | call ftgi2b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed INTEGER(4) to INTEGER(2) fits_io.f90:6309:68:

6309 | nulchk,i2null,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to INTEGER(2) fits_io.f90:6320:56:

6320 | call ftgr8b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r8vals' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:6323:61:

6323 | nulchk,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:6091:56:

6091 | call ftgi2b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed INTEGER(4) to INTEGER(2) fits_io.f90:6094:68:

6094 | nulchk,i2null,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to INTEGER(2) fits_io.f90:6105:56:

6105 | call ftgr4b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r4vals' at (1); passed INTEGER(4) to REAL(4) fits_io.f90:6108:61:

6108 | nulchk,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to REAL(4) fits_io.f90:5874:56:

5874 | call ftgi2b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed INTEGER(4) to INTEGER(2) fits_io.f90:5877:68:

5877 | nulchk,i2null,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to INTEGER(2) fits_io.f90:5888:56:

5888 | call ftgr4b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r4vals' at (1); passed INTEGER(4) to REAL(4) fits_io.f90:5891:61:

5891 | nulchk,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to REAL(4) fits_io.f90:5895:56:

5895 | call ftgr8b(iunit,itodo,incre,buffer,status) | 1 Error: Type mismatch in argument 'r8vals' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:5898:61:

5898 | nulchk,nulval,flgval(i1),anynul,array(i1),status) | 1 Error: Type mismatch in argument 'input' at (1); passed INTEGER(4) to REAL(8) fits_io.f90:10848:14:

10848 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:10809:14:

10809 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:10770:14:

10770 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:10731:14:

10731 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:10692:14:

10692 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:9025:36:

9025 | call ftgcbf(iunit,nvals,chbuff,status) | 1 Error: Rank mismatch in argument 'array' at (1) (scalar and rank-1) fits_io.f90:9029:45:

9029 | call ftgcbo(iunit,1,nvals,offset,chbuff,status) | 1 Error: Rank mismatch in argument 'array' at (1) (scalar and rank-1) fits_io.f90:10939:50:

10939 | call ftgbyt(iunit,nvals*8,r8vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:10943:57:

10943 | call ftgbyo(iunit,8,nvals,offset,r8vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:10950:31:

10950 | call ftswi8(r8vals,nvals) | 1 Error: Type mismatch in argument 'buffer' at (1); passed REAL(8) to LOGICAL(1) fits_io.f90:10953:18:

10953 | call ieevud(r8vals,r8vals,nvals) | 1 Error: Rank mismatch in argument 'dbl1' at (1) (scalar and rank-1) fits_io.f90:10953:25:

10953 | call ieevud(r8vals,r8vals,nvals) | 1 Error: Rank mismatch in argument 'dbl2' at (1) (scalar and rank-1) fits_io.f90:10957:33:

10957 | call ftswby(r8vals,nvals*4) | 1 Error: Type mismatch in argument 'buffer' at (1); passed REAL(8) to LOGICAL(1) fits_io.f90:10959:45:

10959 | call ftr8vx(r8vals,r8vals,r8vals,nvals) | 1 Error: Type mismatch in argument 'i4vals' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:10959:45:

10959 | call ftr8vx(r8vals,r8vals,r8vals,nvals) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed REAL(8) to INTEGER(2) fits_io.f90:10969:15:

10969 | ierr=ieg2cray(3,ntodo,r8vals(i),0,r8vals(fpixel),1,' ') | 1 Error: Type mismatch in argument 'i3' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:10969:15:

10969 | ierr=ieg2cray(3,ntodo,r8vals(i),0,r8vals(fpixel),1,' ') | 1 Error: Type mismatch in argument 'i5' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:10877:50:

10877 | call ftgbyt(iunit,nvals*4,r4vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:10881:57:

10881 | call ftgbyo(iunit,4,nvals,offset,r4vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:10888:31:

10888 | call ftswi4(r4vals,nvals) | 1 Error: Type mismatch in argument 'buffer' at (1); passed REAL(4) to LOGICAL(1) fits_io.f90:10892:33:

10892 | call ftswby(r4vals,nvals*2) | 1 Error: Type mismatch in argument 'buffer' at (1); passed REAL(4) to LOGICAL(1) fits_io.f90:10894:38:

10894 | call ftr4vx(r4vals,r4vals,nvals) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed REAL(4) to INTEGER(2) fits_io.f90:10904:15:

10904 | ierr=ieg2cray(2,ntodo,r4vals(i),0,r4vals(fpixel),1,' ') | 1 Error: Type mismatch in argument 'i3' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:10904:15:

10904 | ierr=ieg2cray(2,ntodo,r4vals(i),0,r4vals(fpixel),1,' ') | 1 Error: Type mismatch in argument 'i5' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:9061:50:

9061 | call ftgbyt(iunit,nvals*2,i2vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:9065:57:

9065 | call ftgbyo(iunit,2,nvals,offset,i2vals,status) | 1 Error: Type mismatch in argument 'array' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:9072:37:

9072 | call ftupi2(i2vals,nvals,ctemp) | 1 Error: Type mismatch in argument 'i2vals' at (1); passed INTEGER(2) to CHARACTER(1) fits_io.f90:9072:37:

9072 | call ftupi2(i2vals,nvals,ctemp) | 1 Error: Type mismatch in argument 'temp' at (1); passed CHARACTER(1) to INTEGER(2) fits_io.f90:9075:31:

9075 | call ftswby(i2vals,nvals) | 1 Error: Type mismatch in argument 'buffer' at (1); passed INTEGER(2) to LOGICAL(1) fits_io.f90:9082:13:

9082 | ierr=ieg2cray(7,nvals,i2vals,0,temp,1,' ') | 1 Error: Type mismatch in argument 'i3' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:9082:13:

9082 | ierr=ieg2cray(7,nvals,i2vals,0,temp,1,' ') | 1 Error: Type mismatch in argument 'i5' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:9093:15:

9093 | ierr=ieg2cray(7,ntodo,i2vals(i),0,i2vals(fpixel),1,' ') | 1 Error: Type mismatch in argument 'i3' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:9093:15:

9093 | ierr=ieg2cray(7,ntodo,i2vals(i),0,i2vals(fpixel),1,' ') | 1 Error: Type mismatch in argument 'i5' at (1); passed INTEGER(2) to INTEGER(4) fits_io.f90:9140:31:

9140 | call ftswi4(i4vals,nvals) | 1 Error: Type mismatch in argument 'buffer' at (1); passed INTEGER(4) to LOGICAL(1) fits_io.f90:4690:58:

4690 | call ftgxbo(iunit,gsize,ngroup,offset,array,temp,status) | 1 Error: Type mismatch in argument 'array' at (1); passed INTEGER(4) to CHARACTER(0) fits_io.f90:4690:58:

4690 | call ftgxbo(iunit,gsize,ngroup,offset,array,temp,status) | 1 Error: Type mismatch in argument 'temp' at (1); passed CHARACTER(1) to INTEGER(4) fits_io.f90:5426:28:

5426 | call ftgcbf(iunit,itodo,buffer,status) | 1 Error: Rank mismatch in argument 'array' at (1) (scalar and rank-1) fits_io.f90:5733:28:

5733 | call ftgcbf(iunit,itodo,buffer,status) | 1 Error: Rank mismatch in argument 'array' at (1) (scalar and rank-1) fits_io.f90:7614:14:

7614 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:7650:52:

7650 | call ftgcle(iunit,colnum,frow,felemx,nelemx,1,1,nulval, & | 1 Error: Rank mismatch in argument 'nulval' at (1) (scalar and rank-1) fits_io.f90:7651:14:

7651 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:7681:14:

7681 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:7711:14:

7711 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:7741:14:

7741 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:7771:14:

7771 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:7807:52:

7807 | call ftgcld(iunit,colnum,frow,felemx,nelemx,1,1,nulval, & | 1 Error: Rank mismatch in argument 'nulval' at (1) (scalar and rank-1) fits_io.f90:7808:14:

7808 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:7838:14:

7838 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:8575:14:

8575 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:8608:14:

8608 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:8641:14:

8641 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:8674:14:

8674 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:8707:14:

8707 | array,flgval,anynul,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:12018:28:

12018 | nultyp,nulval,array(i1),ldummy,anyf,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:12161:28:

12161 | nultyp,nulval,array(i1),ldummy,anyf,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:12304:28:

12304 | nultyp,nulval,array(i1),ldummy,anyf,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:12447:28:

12447 | nultyp,nulval,array(i1),ldummy,anyf,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:12590:28:

12590 | nultyp,nulval,array(i1),ldummy,anyf,status) | 1 Error: Rank mismatch in argument 'flgval' at (1) (rank-1 and scalar) fits_io.f90:16351:45:

16351 | call ftpknj(iunit,'TBCOL',colnum,1,tbc,comm,status) | 1 Error: Rank mismatch in argument 'intval' at (1) (rank-1 and scalar) fits_io.f90:16514:43:

16514 | call ftpknj(iunit,'TBCOL',colnum,1,tbc,comm,status) | 1 Error: Rank mismatch in argument 'intval' at (1) (rank-1 and scalar) fits_io.f90:18471:33:

18471 | if (chktyp /= 0 .and. fttrnn(input(j)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:18488:37:

18488 | if (chktyp /= 0 .and. fttrnn(input(j)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(4) to INTEGER(4) fits_io.f90:18551:33:

18551 | if (chktyp /= 0 .and. fttdnn(input(j)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:18568:37:

18568 | if (chktyp /= 0 .and. fttdnn(input(j)))then | 1 Error: Type mismatch in argument 'value' at (1); passed REAL(8) to INTEGER(4) fits_io.f90:20990:28:

20990 | call ftpcbf(ounit,itodo,buffer,status) | 1 Error: Rank mismatch in argument 'cbuff' at (1) (scalar and rank-1) make: *** [fits_io.o] Error 1

Can someone help me with this problem?

Best wishes, Xie