DIMEN3

 !Program name: DIMEN3

real, dimension(10) :: A=(/ 1,2,3,4,5,6,7,8,9,10 /)

Real, dimension(10) :: B

where (A>5)

    B=1.

Elsewhere

    B=0

end where

write (*,*) A, B

stop

end

Comentários

  1. thv7abijsj3 de fevereiro de 2023 às 15:07

    This bets that one of four numbers will hit on the following spin. The numbers should all be touching and shifting a chip into the middle of four numbers locations the guess. In this guess, a participant is wagering that any number in a specific row will hit on the following spin. To make this guess, you have to place a chip within the outdoors line of the row on 카지노사이트 which you wish to guess. Inside Bets– Bets made on the within section of the roulette desk.

    ResponderExcluir

Postar um comentário

Postagens mais visitadas deste blog

DATA

  ! Name of the program: DATA !Examples of data Implicit none !maximum integer value Integer :: A Integer (kind=2) :: B      !it uses two bytes Integer (kind=4) :: C      !it uses four bytes Integer (kind=8) :: D      !it uses eight bytes print *, huge(A), kind(A)  !it shows 2147483647 print *, huge(B), kind (B)  !it shows 32767     2 Print *, huge(C)          !it shows 2147483647      4 Print *, huge(D), kind (D) ! it shows 9223372036854775807    8 stop end
Leia mais

RECURSIVE

  !Program name: RECURSIVE !calculate the factorial of a number n! program recursive      integer :: i, f    character (len=1) :: answer    Print *, 'Input the value to be factorized: '    Read *, i ! Variable function:    f = factorial(i)    Print *, 'The value of factorial of', i, ' is: '    Print *, f 10   Print *, 'Do you want to calculate another factorial (Y/N)?'    Read *, answer    If (answer == 'Y') then         Print *, 'Input another value to be factorized: '         Read *, i         f = factorial(i)         Print *, 'The value of the factorial of ', i, ' is: '         Print *, f         Go to 10       else       print *, 'Ok. Goodbye.'    end if   end program recursive   ! computes the factorial of n (n!) recursive function factorial (n) result (fac) ! function result implicit none      ! dummy arguments    integer :: fac    integer, i
Leia mais

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