two more bad strings

Author: smiet

src/mp00ac.f90

@@ -414,7 +414,7 @@ subroutine mp00ac( Ndof, Xdof, Fdof, Ddof, Ldfjac, iflag ) ! argument list is fi
       ;             write(ounit,1010) cput-cpus, myid, lvol, ideriv, "idgetrf idgetrs idgerfs", idgetrf(ideriv), idgetrs(ideriv), idgetrf(ideriv), "invalid error ; "
     endif
 
-  1010 format("mp00ac : ",f10.2," : myid=",i3," ; lvol=",i3," ; ideriv=",i2," ; "a23"=",i3,' ',i3,' ',i3," ; "a34,:" time=",f10.2," ;")
+  1010 format("mp00ac : ",f10.2," : myid=",i3," ; lvol=",i3," ; ideriv=",i2," ; ",a23,"=",i3,' ',i3,' ',i3," ; ",a34,:" time=",f10.2," ;")
 
 !-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!-!
 

src/preset.f90

@@ -230,7 +230,7 @@ subroutine preset
    else                                                                                          ; Lchangeangle = .false.
    endif
 
-   if( Lchangeangle ) write(ounit,'("readin : " 10x " : CHANGING ANGLE ;")')
+   if( Lchangeangle ) write(ounit,'("readin : " ,10x, " : CHANGING ANGLE ;")')
 
    do ii = 1, mn ; mm = im(ii) ; nn = in(ii) / Nfp ! set plasma boundary, computational boundary; 29 Apr 15;