format of .trans

format of .trans changed to exomol
Trovemaster · Jul 1, 2018 · abf4fa9 · abf4fa9
1 parent 13badc9
commit abf4fa9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/dipole.f90 b/dipole.f90
@@ -1201,7 +1201,7 @@ subroutine dm_intensity(Jval,iverbose)
  ! quantaF%iroot,quantaI%iroot,linestr,nu_if
  else
  !
- write(transunit,"(2i12,2x,es10.4,4x,f16.6)") & 
+ write(transunit,"(i12,1x,i12,2x,es10.4,4x,f16.6)") & 
  quantaF%iroot,quantaI%iroot,A_einst,nu_if
  endif 
  !