PROGRAM main
  integer :: zahl = 0;
  write (*,"(A,$)") "Bitte eine Zahl eingeben: "
  read (*,*) zahl
  
  call dec2bin_mod ( zahl )
  write (*,*) " "
END PROGRAM

recursive SUBROUTINE dec2bin_mod ( zahl )
  integer zahl
  integer tmp
  
  if (zahl > 0) then
    tmp = mod(zahl, 2)
    call dec2bin_mod ( zahl / 2 )
    write (*,"(I1,$)") tmp
  endif
END SUBROUTINE