diff options
| author | schnetter <schnetter@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2005-12-12 21:36:22 +0000 |
|---|---|---|
| committer | schnetter <schnetter@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2005-12-12 21:36:22 +0000 |
| commit | f1a1704e5ae19bcac56bebd8d1772acc6b3d244a (patch) | |
| tree | eb4e9bd75592b9fdf7c97b60f2b8b8d93bda25d7 | |
| parent | 243b029a820b8776c155c7cb7030dcf5c815b83b (diff) | |
Correct error in converting C to Fortran string.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@70 41e88fdd-2190-4c69-9c84-4659c8cf322e
| -rw-r--r-- | src/SourceData.F77 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index f6a2811..d5fc8da 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -35,7 +35,7 @@ c where Q is the total charge and R is the sphere radius integer iphi,iMcoeff,iNcoeff integer i,j,k,ierr - integer length + CCTK_INT length character*30 fsolver character*200 infoline @@ -104,19 +104,19 @@ c Set parameters for specific solvers call Ell_SetIntKey(ierr, sor_maxit,"Ell::SORmaxit") end if + call CCTK_FortranString(length,solver,fsolver) write(infoline,'("Going into elliptic solver ",A)') fsolver - call CCTK_INFO(infoline(1:len_trim(infoline))) + call CCTK_INFO(infoline) c Call elliptic solver to fill out phi - call CCTK_FortranString(length,solver,fsolver) call Ell_LinFlatSolver( & ierr, & cctkGH, & iphi, & iMcoeff, iNcoeff, & AbsTol, RelTol, - & fsolver(1:length)) + & fsolver) if (ierr .eq. ELL_SUCCESS) then call CCTK_INFO("Leaving elliptic solver: solve successful") @@ -126,7 +126,7 @@ c Call elliptic solver to fill out phi call CCTK_INFO("Elliptic solver not found") else write(infoline,'("Leaving elliptic solver: solve failed (Error ",I3,")")') ierr - call CCTK_INFO(infoline(1:len_trim(infoline))) + call CCTK_INFO(infoline) end if c Set up last timestep ... assume (first order) time symmetry |