********>bugfix.13: Author: Dave CAse Date: 1/29/2009 Programs: sander Description: Bare format specifiers like "I" are not allowed in gfortran Apply the following patch to $AMBERHOME/src/dcqtp/pb/dpwritepot.F90 ------------------------------------------------------------------------------ *** dpwritepot.F90 15 Apr 2008 23:21:16 -0000 10.0 --- dpwritepot.F90 8 Aug 2008 20:09:21 -0000 10.1 *************** *** 80,86 **** write(nPotFile,'(A)')trim(CompactSpace(string)) write(string,'("object 2 class gridconnections counts ",3(I3,1X))')(npTmp(i),i=1,3) write(nPotFile,'(A)')trim(CompactSpace(string)) ! write(string,'("object 3 class array type double rank 0 items ",I," data follows")')nTmp write(nPotFile,'(A)')trim(CompactSpace(string)) n=0 --- 80,86 ---- write(nPotFile,'(A)')trim(CompactSpace(string)) write(string,'("object 2 class gridconnections counts ",3(I3,1X))')(npTmp(i),i=1,3) write(nPotFile,'(A)')trim(CompactSpace(string)) ! write(string,'("object 3 class array type double rank 0 items ",I5," data follows")')nTmp write(nPotFile,'(A)')trim(CompactSpace(string)) n=0 *************** *** 135,141 **** write(nPotFile,'(A)')trim(CompactSpace(string)) write(string,'("object 2 class gridconnections counts ",3(I3,1X))')(npTmp(i),i=1,3) write(nPotFile,'(A)')trim(CompactSpace(string)) ! write(string,'("object 3 class array type double rank 0 items ",I," data follows")')nTmp write(nPotFile,'(A)')trim(CompactSpace(string)) n=0 --- 135,141 ---- write(nPotFile,'(A)')trim(CompactSpace(string)) write(string,'("object 2 class gridconnections counts ",3(I3,1X))')(npTmp(i),i=1,3) write(nPotFile,'(A)')trim(CompactSpace(string)) ! write(string,'("object 3 class array type double rank 0 items ",I5," data follows")')nTmp write(nPotFile,'(A)')trim(CompactSpace(string)) n=0 ------------------------------------------------------------------------------ Temporary Workarounds: None