diff --git a/src/ddscf/movecs_frag.F b/src/ddscf/movecs_frag.F
index 6f4d53f922..e31fb0e506 100644
--- a/src/ddscf/movecs_frag.F
+++ b/src/ddscf/movecs_frag.F
@@ -81,7 +81,7 @@ c
      &       INPUT_ERR)
          if (.not. ga_create(MT_DBL, nbf_frag, nmo_frag(1), 
      $        ' frag mos',  32, 32, g_frag)) 
-     $        call errquit('movecs_fragment: GA for frag MOs', nmo_frag,
+     $     call errquit('movecs_fragment: GA for frag MOs', nmo_frag(1),
      &       GA_ERR)
          if (.not. ma_push_get(mt_dbl, nbf_frag, 
      $        ' fragment eva', l_eval, k_eval)) call errquit
diff --git a/src/ddscf/uhf_hessv2_ext.F b/src/ddscf/uhf_hessv2_ext.F
index 2c3c287cc8..1e75b31eaf 100644
--- a/src/ddscf/uhf_hessv2_ext.F
+++ b/src/ddscf/uhf_hessv2_ext.F
@@ -2775,7 +2775,8 @@ c ---- Move g_Axreim --> g_Az1---- END
      &       GA_ERR)
         enddo ! end-loop-iset (spin A,B)
        enddo ! end-loop-cnt
-        if (.not. ga_destroy(g_Axreim)) call errquit('uhf_hv2e: Axreim',0,
+       if (.not. ga_destroy(g_Axreim))
+     c      call errquit('uhf_hv2e: Axreim',0,
      &       GA_ERR)
       if (debug) then
            if (ga_nodeid().eq.0)        
@@ -4111,8 +4112,9 @@ c ---- Move g_Axreim --> g_Az---- END
      &       GA_ERR)
         enddo ! end-loop-iset (spin A,B)
        enddo ! end-loop-cnt
-        if (.not. ga_destroy(g_Axreim)) call errquit('uhf_hv2e: Axreim',0,
-     &       GA_ERR)
+       if (.not. ga_destroy(g_Axreim))
+     &      call errquit('uhf_hv2e: Axreim',0,
+     &      GA_ERR)
       if (debug) then
            if (ga_nodeid().eq.0)        
      &     write(*,*) '------- g_Az-1------ START' 
diff --git a/src/nwdft/scf_dft/dft_fock_efield.F b/src/nwdft/scf_dft/dft_fock_efield.F
index 8075c009cc..d49bd29171 100644
--- a/src/nwdft/scf_dft/dft_fock_efield.F
+++ b/src/nwdft/scf_dft/dft_fock_efield.F
@@ -92,7 +92,7 @@ C
      $     mt_dbl, 1, exp_cutoff)) then
 
          if (exp_cutoff .lt. 0d0)
-     $        call errquit (pname//"invalid negative exp_cutoff")
+     $        call errquit (pname//"invalid negative exp_cutoff",0,0)
 
 
          if (.not. bas_numcont (ao_bas_han, ncont))