program.F90

Go to the documentation of this file.

!! SPDX-FileCopyrightText: 2026 Octopus Developers
!! SPDX-License-Identifier: GPL-3.0-or-later
 
#include "global.h"
 
program octopus
  use iso_fortran_env, only: error_unit
  ! main program
  use octopus_main_oct_m, only: octopus_main
  ! Utils
  use casida_spectrum_main_oct_m, only: casida_spectrum_main
  use centergeom_main_oct_m, only: centergeom_main
  use conductivity_main_oct_m, only: conductivity_main
  use convert_main_oct_m, only: convert_main
  use dielectric_function_main_oct_m, only: dielectric_function_main
  use floquet_main_oct_m, only: floquet_main
  use harmonic_spectrum_main_oct_m, only: harmonic_spectrum_main
  use help_main_oct_m, only: help_main
  use infrared_main_oct_m, only: infrared_main
  use local_multipoles_main_oct_m, only: local_multipoles_main
  use oscillator_strength_main_oct_m, only: oscillator_strength_main
  use photoelectron_spectrum_main_oct_m, only: photoelectron_spectrum_main
  use propagation_spectrum_main_oct_m, only: propagation_spectrum_main
  use spin_susceptibility_main_oct_m, only: spin_susceptibility_main
  use tdtdm_main_oct_m, only: tdtdm_main
  use unfold_main_oct_m, only: unfold_main
  use vibrational_main_oct_m, only: vibrational_main
  use wannier90_interface_main_oct_m, only: wannier90_interface_main
#ifdef HAVE_WANNIER90
  use wannier_main_oct_m, only: wannier_main
#endif
  use xyzanim_main_oct_m, only: xyzanim_main
 
  implicit none
 
  integer :: n
  character(len=:), allocatable :: name
 
  call get_command_argument(0, length=n)
  allocate(character(len=n) :: name)
  call get_command_argument(0, name)
  name = name(index(name, '/', back=.true.) + 1:)
 
  select case (name)
  case ('octopus')
    call octopus_main()
  case ('oct-casida_spectrum')
    call casida_spectrum_main()
  case ('oct-center-geom')
    call centergeom_main()
  case ('oct-conductivity')
    call conductivity_main()
  case ('oct-convert')
    call convert_main()
  case ('oct-dielectric-function')
    call dielectric_function_main()
  case ('oct-floquet')
    call floquet_main()
  case ('oct-harmonic-spectrum')
    call harmonic_spectrum_main()
  case ('oct-help')
    call help_main()
  case ('oct-infrared_spectrum')
    call infrared_main()
  case ('oct-local_multipoles')
    call local_multipoles_main()
  case ('oct-oscillator-strength')
    call oscillator_strength_main()
  case ('oct-photoelectron_spectrum')
    call photoelectron_spectrum_main()
  case ('oct-propagation_spectrum')
    call propagation_spectrum_main()
  case ('oct-spin_susceptibility')
    call spin_susceptibility_main()
  case ('oct-tdtdm')
    call tdtdm_main()
  case ('oct-unfold')
    call unfold_main()
  case ('oct-vibrational_spectrum')
    call vibrational_main()
  case ('oct-wannier90')
    call wannier90_interface_main()
#ifdef HAVE_WANNIER90
  case ('oct-wannier90lib')
    call wannier_main()
#endif
  case ('oct-xyz-anim')
    call xyzanim_main()
  case default
    write(error_unit, '(a)') "Unknown program name '" // name // "'. Known names:"
    write(error_unit, '(2x,a)') 'octopus'
    write(error_unit, '(2x,a)') 'oct-casida_spectrum'
    write(error_unit, '(2x,a)') 'oct-center-geom'
    write(error_unit, '(2x,a)') 'oct-conductivity'
    write(error_unit, '(2x,a)') 'oct-convert'
    write(error_unit, '(2x,a)') 'oct-dielectric-function'
    write(error_unit, '(2x,a)') 'oct-floquet'
    write(error_unit, '(2x,a)') 'oct-harmonic-spectrum'
    write(error_unit, '(2x,a)') 'oct-help'
    write(error_unit, '(2x,a)') 'oct-infrared_spectrum'
    write(error_unit, '(2x,a)') 'oct-local_multipoles'
    write(error_unit, '(2x,a)') 'oct-oscillator-strength'
    write(error_unit, '(2x,a)') 'oct-photoelectron_spectrum'
    write(error_unit, '(2x,a)') 'oct-propagation_spectrum'
    write(error_unit, '(2x,a)') 'oct-spin_susceptibility'
    write(error_unit, '(2x,a)') 'oct-tdtdm'
    write(error_unit, '(2x,a)') 'oct-unfold'
    write(error_unit, '(2x,a)') 'oct-vibrational_spectrum'
    write(error_unit, '(2x,a)') 'oct-wannier90'
#ifdef HAVE_WANNIER90
    write(error_unit, '(2x,a)') 'oct-wannier90lib'
#endif
    write(error_unit, '(2x,a)') 'oct-xyz-anim'
    deallocate(name)
    stop 1
  end select
 
  deallocate(name)
 
end program octopus
 
!! Local Variables:
!! mode: f90
!! coding: utf-8
!! End: