blob: 9393f223257dd0c154de6aa659855b15eb048480 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/WaveToyFO/src/Attic/calc_inv4.F90,v 1.1 2004/05/07 20:55:47 schnetter Exp $
#include "cctk.h"
subroutine WaveToyFO_calc_inv4 (a, b)
use matinv
implicit none
CCTK_REAL a(4,4), b(4,4)
call calc_inv4 (a, b)
end subroutine WaveToyFO_calc_inv4
|