1
2
3
4
5
6
7
8
9
  PROGRAM noco 
      a = 20
      b = 30
      c = 50
      if (a .LT. b) then
       if (a .LT. c) then
       write(*,*) ' a is lesser then b and c'
       elif ( a .GT. b ) then 
       write(*,*) 'a is greater then b'
 ...

1
2
3
4
5
6
7
8
9
  PROGRAM noco 
      a = 20
      b = 30
      c = 50
      if (a .LT. b) then
      if (a .LT. c) then
      write(*,*) ' a is lesser then b and c'
      elif ( a .GT. b ) then 
      write(*,*) 'a is greater then b'
 ...

1
2
3
4
5
6
7
8
9
  PROGRAM noco 
      a = 20
      b = 30
      c = 50
      if (a .LT. b) then
      if (a .LT. c) then
      display " a is lesser then b and c"
      elif ( a .GT. b ) then 
      diaplay " a is greater then b"
 ...

1
2
3
4
5
6
7
8
9
PROGRAM power3_loop
!*** 3rd power of a for 1 <= a <= 8
IMPLICIT NONE
INTEGER :: a, b
DO a = 1, 8
b = a*a*a
PRINT*,a,"to the power of three = ",b
END DO
END PROGRAM power3_loop

1
2
3
4
5
6
7
8
9
PROGRAM power3_loop
!*** 3rd power of a for 1 <= a <= 8
IMPLICIT NONE
INTEGER :: a, b
DO a = 1, 8
b = a*a*a
PRINT*,a,"to the power of three = ",b
END DO
END PROGRAM power3_loop

1
2
3
4
5
6
7
8
9
  PROGRAM noco 
      a = 20
      b = 30
      c = 50
      if (a .LT. b) then
      if (a .LT. c) then
      PRINT*," a is lesser then b and c"
      elif ( a .GT. b ) then 
      PRINT*," a is greater then b"
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dVdt
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dVdt
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dVdt
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dVdt
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dVdt
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dVdt
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dVdt
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dVdt
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dVdt
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dVdt
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, V, t, n, k, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, y, x, n, k, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, y, x, n, k, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, y, x, n, k, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, y, x, n, k, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, y, x, n, k, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, y, x, n, k, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, y, x, n, k, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, y, x, n, k, p
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i, nc
        real :: xi, xf, tp, y, x, n, k, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i
        real :: xi, xf, tp, y, x, n, k, nc, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i
        real :: xi, xf, tp, y, x, n, k, nc, dydx
 
        xi=0.0
        xf=5.0
        tp=0.1
 ...

1
2
3
4
5
6
7
8
9
        program integr
        implicit none
 
        real :: x, x1, x2, x3, b, b1, b2, b3, I
 
 
        !h=(b-a)/3
        
        x = 0.0
 ...

1
2
3
4
5
6
7
8
9
        program esfera
        implicit none
 
        integer :: i
        real :: xi, xf, tp, y, x, n, k, nc, dydx
 
        xi=0.
        xf=5.
        tp=.1
 ...