DIMEN4

 !Program name: DIMEN4

Integer,dimension (-3:4,2:5) :: i  !array of rank 2 from -3 to 4 and from 2 to 5

Integer,dimension (0:6) :: j  ! array of rank 1 from 0 to 6

Integer :: k(3,4)  ! array of rank 2 from 1 to 3 and from 1 to 4

 

Write (*,*) ubound (i)     ! it shows   4      5

Write (*,*) lbound (i)      ! it shows  -3      2

Write (*,*) ubound (j)     ! it shows   6

write (*,*) lbound (j)      ! it shows   0

Write (*,*) ubound (i,1)   ! it shows   4

Write (*,*) ubound (i,2)   ! it shows   5

Write (*,*) lbound (i,1)    ! it shows  -3

Write (*,*) lbound (i,2)    ! it shows   2

write (*,*) ubound(k)      ! it shows   3     4

write (*,*) lbound(k)      ! it shows   1      1

Stop

End

Comentários

  1. Anônimo6 de dezembro de 2022 às 07:09

    Finally, we ensured every portal had quantity of} deposit options instead of counting on the typical bank card deposit strategies. You can play free slots from your desktop at home or your mobile devices whereas you’re 우리카지노 on the go! Slotomania is super-quick and handy to entry and play, anywhere, anytime.

    ResponderExcluir

Postar um comentário

Postagens mais visitadas deste blog

HYDROGEN-RADIAL

!--------------------------------------------------------------- !Program name: HYDROGEN-RADIAL !Radial equation of the hydrogen-like atom !Objective: plot the radial wave function for each n,l pair ! The equation is atomic units !--------------------------------------------------------------- !The Coulomb potential energy equation is: ! V(r) = -2Z/r ! The ceentrifugal potential equation is: ! VL=l(l+1)/r^2 ! The energy is: ! E=-2*Z/n^2 !--------------------------------------------------------------- ! Use of Numerov method to find the wave function ! Function fn from Numerov equation is ! Fn = 1 + K2*h^2/12 , where K2=-2(Veff - E) ! In the code, h is changed into dr !---------------------------------------------------------------   Program hydrogen   Implicit none   integer :: mesh, n, l, i, j, zeta, m, maxiter=100   Real*8 rmin, dr, zmesh, y_out_m   double precision :: e, fh12, norm, eps=1.0E-6    double precision, allocatable :: r(:), r2
Leia mais

HYDROGEN-POTENTIAL

  !--------------------------------------------------------------- !Program name: HYDROGEN-POTENTIAL !Objective: plot the effective potential energy as a function of radial distance !--------------------------------------------------------------- !The Coulomb potential energy equation is: ! V(r) = -KZq 2 /r = -(Kq 2 )(Z/r) ! K(Coulomb constant)= 9*10 9 Nm 2 C -2 ! q = - 1.602 x 10 -19 C ! Kq 2 =2.3 x 10 -28 ! The unit is Joule. We have to change into Rydberg. !---------------------------------------------------- ! The V(centrifugal) equation is: ! Vcent=6.1 x 10 -39 l(l+1)/r 2 (see text) ! The unit is Joule. We have to change into Rydberg !--------------------------------------------------------------- ! The unit of the radial distance, r, is meter. !---------------------------------------------------------------   Program hydrogen Implicit none   integer :: mesh, n, l, i, zeta   Real*8 rmin, dr, rmax   double precision :: oldr, e, kq2, h2m
Leia mais

ONE_PART_QHO

  !--------------------------------------------------------------- !Program name: ONE_PART_QHO !Original code: Giannozzi,P., Ercolessi, F. and Gironcoli, S. !Modified by Caio Lima Firme !One particle quantum harmonic oscillator !PARABOLIC POTENTIAL WELL !Objective: to plot the wave function for each node !--------------------------------------------------------------- !The dimensionless physical quantities: !Potential energy: V(x)=0.5X^2    ! Energy: E=1/2+n !--------------------------------------------------------------- ! Use of Numerov method to find the wave function ! Function fn from Numerov equation is ! Fn = 1 + K2*h^2/12 , where K2=2m/((H/2pi)^2)*(E-V) ! H=Planck constant !-------------------------------------------------------------- -   integer :: grid, i, icl   integer :: n, hn, ncross, j, iter   double precision :: xmax, h, fh12, norm, djump, fac   double precision :: Vupper, Vlower, e, k   double precision :: x(0:300), y(0:300), V
Leia mais