← Back to branch summary

~nickpapior/siesta/tddft-work

« back to all changes in this revision

Viewing changes to Src/alloc.F90

  • Committer: Rafi Ullah
  • Date: 2017-08-30 14:09:10 UTC
  • mfrom: (611.1.19 trunk)
  • Revision ID: rraffiu@gmail.com-20170830140910-bhu0osuh4d59wn8e
Merged with trunk-630

Show diffs side-by-side

added added

removed removed

Lines of Context:
Src/alloc.F90
2296
2296
! ==================================================================
2297
2297
 
2298
2298
SUBROUTINE alloc_err( ierr, name, routine, bounds )
2299
 
#ifdef DEBUG
2300
 
      use debugMpi, only : mpiUnit
2301
 
#endif
 
2299
 
2302
2300
implicit none
2303
2301
 
2304
2302
integer,                    intent(in) :: ierr
2324
2322
    print '(a,i3,2i10)', ('alloc_err: dim, lbound, ubound:',  &
2325
2323
          i,bounds(1,i),bounds(2,i),                         &
2326
2324
          i=1,size(bounds,dim=2))            
2327
 
#ifdef DEBUG
2328
 
  write(mpiUnit,*) 'alloc_err: allocate status error', ierr
2329
 
  if (present(name).and.present(routine)) then
2330
 
    write(mpiUnit,*) 'alloc_err: array ', name, ' requested by ', routine
2331
 
  elseif (present(name)) then
2332
 
    write(mpiUnit,*) 'alloc_err: array ', name, ' requested by unknown'
2333
 
  elseif (present(routine)) then
2334
 
    write(mpiUnit,*) 'alloc_err: array unknown requested by ', routine
2335
 
  endif
2336
 
  write(mpiUnit,'(a,i3,2i10)') ('alloc_err: dim, lbound, ubound:', &
2337
 
                      i,bounds(1,i),bounds(2,i),         &
2338
 
                      i=1,size(bounds,dim=2))
2339
 
  call pxfflush(mpiUnit)
2340
 
#endif
2341
2325
 
2342
2326
  call die('alloc_err: allocate error')
2343
2327
end if