if(APRI)then
        write(11,3000)'  Lon     Lat       ',
     *              ((trim(c_id(ic)),'_amp  ',
     *                trim(c_id(ic)),'_ph   '),ic=1,ncon)
      else
        write(11,3000)'  Lon       Lat     ',
     *             ((trim(c_id(ic)),'_Re   ',
     *               trim(c_id(ic)),'_Im   '),ic=1,ncon)
      endif
      3000  format(a21,<ncon>(a2,a6))

报错：

syntax error detected between '_ph   ' and )

syntax error detected between '_Im   ' and )