CarpetDev/CarpetAdaptiveRegrid/src/test/cctk.f


1
2
3
4
5
6
7
8
9
10
11

      subroutine CCTK_WARN(a,b)

      implicit none

      integer a
      character*100 b
      
      write(*,*) b
      stop

      end subroutine CCTK_WARN