Pk High files

How use Subroutines in fortran

pradeep — Mon, 24 Apr 2017 17:42:55 GMT

Code

program swapmain
implicit none
real :: a, b
! Read in two values
read(*,*) a, b
call swap(a,b)
write(*,*) a,b
contains
subroutine swap(x, y)
real :: x, y, temp
temp = x
x = y
y = temp
end subroutine swap
end program swapmain

Dato-Code installation guide

pradeep — Fri, 17 Apr 2015 06:32:59 GMT

Simple Installation
1. GenerateDato-code key and get code , example
like that https://dato.com/products/create/quick-start-guide.html

Code

(mkdir-p ~/.graphlab && [b]echo -e [font=Source][color=#486600]"[Product]\nproduct_key=[b]unique-key" > ~/.graphlab/config&& [b]echo "Configuration file written") || [b]echo "Configurationfile not written"

2.     execute python -V in terminal , if version 2.7.x available then okay , else
3.    sudoapt-get update
4.    sudoapt-get install python-pip
5.   sudo pip installgraphlab-create==1.3
6.    checkpython version and run python python –V
7.   run python : python hit enter
8.    Now runfollowing command and test it
https://dato.com/learn/gallery/notebooks/five_line_recommender.html

If you facing problem in installing pip command following these code

Code

[b]$sudo apt-get install python-pip python-dev build-essential
[b]$ sudo pip install --upgrade pip
[b]$ sudo pip install --upgrade virtualenv
[b]$ sudo apt-get update
[b]$ sudo apt-get install gcc g++ build-essential libopenmpi-dev openmpi-bin default-jdk cmake zlib1g-dev git

I hope its help , please post comment and ask question if you have any issue .

Thanks

Bring your idea in New SWM

pradeep — Wed, 13 Aug 2014 11:37:46 GMT

Forum: Wel Come
Thread description: Post your Idea that you want to look in new Swm
Thread starter: pradeep
Last message posted by: pradeep
Number of replies: 0

Download Self Study Pdf for FORTRAN 90

pradeep — Sat, 05 Apr 2014 09:51:51 GMT

Forum: FORTRAN 90
Thread description: Download Self Study Pdf for FORTRAN 90
Thread starter: pradeep
Last message posted by: pradeep
Number of replies: 0

Local and global variables in fortran

pradeep — Sat, 05 Apr 2014 09:49:46 GMT

Code

program set
implicit none
real :: a, b
! Read in value of a
read(*,*) a
call setval(b)
write(*,*) b
contains
subroutine setval(x)
real :: x
x = a ! value of a is from main program
end subroutine setval
end program set

Use Functions in Fortran

pradeep — Sat, 05 Apr 2014 09:47:23 GMT

Code

program newton
!
! Solves f(x) = 0 by Newton’s method
!
implicit none
integer :: its = 0 ! iteration counter
integer :: maxits = 20 ! maximum iterations
integer :: converged = 0 ! convergence flag
real :: eps = 1.0e-6 ! maximum error
real :: x = 2 ! starting guess
! introduce a new form of the do loop
do while (converged == 0 .and. its < maxits)
x = x - f(x) / df(x)
write(*,*) x, f(x)
its = its + 1
if (abs(f(x)) <= eps) converged = 1
end do
if (converged == 1) then
write(*,*) ’Newton converged’
else
write(*,*) ’Newton did not converge’
end if
contains
function f(x)
real :: f, x
f = x**3 + x - 3.0
end function f
function df(x)
! first derivative of f(x)
real :: df, x
df = 3 * x**2 + 1
end function df
end program newton

Plotting a data file

pradeep — Sat, 05 Apr 2014 09:46:06 GMT

Code

program outputdata
implicit none
real, dimension(100) :: x, y
integer :: i
! setup x and y with some data
do i=1,100
x(i) = i * 0.1
y(i) = sin(x(i)) * (1-cos(x(i)/3.0))
end do
! output data to a file
open(1, file=’data1.dat’, status=’new’)
do i=1,100
write(1,*) x(i), y(i) end do
close(1)
end program outputdata

How use Arrays in Fortran

pradeep — Sat, 05 Apr 2014 09:44:13 GMT

Code

program linalg
implicit none
real :: v1(3), v2(3), m(3,3)
integer :: i,j
v1(1) = 0.25
v1(2) = 1.2
v1(3) = 0.2
! use nested do loops to initialise the matrix
! to the unit matrix
do i=1,3
do j=1,3
m(j,i) = 0.0
end do
m(i,i) = 1.0
end do
! do a matrix multiplication of a vector
! equivalent to v2i = mij v1j
do i=1,3
v2(i) = 0.0
do j = 1,3
v2(i) = v2(i) + m(i,j)*v1(j)
end do
end do
write(*,*) ’v2 = ’,v2
end program linalg

Quote

program vector
implicit none
real :: v(3)
real :: x
integer :: i
v(1) = 0.25
v(2) = 1.2
v(3) = 0.2
! compute the modulus squared of the vector
x = 0.0
do i=1,3
x = x + v(i)*v(i)
end do
write(*,*) ’Modulus squared = ’,x
end program vector

Computes factorials in fortran

pradeep — Sat, 05 Apr 2014 09:42:03 GMT

Code

program factorial
implicit none
! define variables, some with initial values
integer :: nfact = 1
integer :: n
! compute factorials
do n = 1, 10
nfact = nfact * n
write(*,*) n, nfact
end do
end program factorial

Logical controls

pradeep — Sat, 05 Apr 2014 09:40:48 GMT

Code

program tripos1
implicit none
real :: p1, p2, p3, maths
real :: av1, av2
! read in the marks
read(*,*) p1, p2, p3, maths
! work out two averages
av1 = p1 + p2 + p3
av2 = av1 + maths
av1 = av1 / 3.0 ; av2 = av2 / 4.0
! use an if statement
if (av2 > av1) then
write(*,*) ’Final average = ’,av2
else
write(*,*) ’Final average = ’,av1
end if
end program tripos1