scemama

 integer*8                      :: cpu0, cpu1, count_rate, count_max

 call system_clock(cpu0, count_rate, count_max)
! ...
 call system_clock(cpu1, count_rate, count_max)
 print *, real(cpu1-cpu0)/real(count_rate)

scemama

module progress
  implicit none

  ! A value you want to monitor (like a running average for instance)
  real*8           :: progress_value    = huge(1.d0)

  ! the 1st index will contain the current loop count, and the 2nd index the
  ! total loop count. The ratio ``dble(progress_bar(1))/dble(progress_bar(2))``
  ! will give you the current percentage of progress.
  integer          :: progress_bar(2)   = (/ 1, 1 /)

scemama

#!/bin/bash

MACHINE=$1
DESTINATION="/backup/VMs/"

DATE=$(date +"%F")
LONG_DATE=$(date)

cd $HOME

scemama

#!/bin/bash

VMS=$(VBoxManage list vms | cut -d ' ' -f 1 | tr '"' ' ')

for VM in $VMS
do
  VBoxManage list runningvms | cut -d ' ' -f 1 | grep $VM > /dev/null
  if [[ $? -ne 0 ]]
  then
    VBoxManage startvm $VM --type=headless

scemama

###Prerequirements

• github token, hereafter refered to as $GITHUB_TOKEN
• ruby/gem to install the travis client: sudo gem install travis

###Adding travis-ci support 1. git clone the project/repository you want to add travis support to, and cd into the clone
2. what type of project is it? Choose the appropriate .travis.yml template and copy it into the root of your git repo/project

• grails application .travis.yml template
• grails plugin .travis.yml template
• pom.xml/mvn project .travis.yml template

scemama

$ gcc fort_file.o c_file.o -lifcore -lirc -lcomposerxe_gen_helpers_core_2.3

scemama

let (|>) x f = f x ;;

"Hello" |> print_endline;;

scemama

subroutine LU_factorization(m,n,A,LDA,L,LDL,U,LDU)
  implicit none
  integer, intent(in) :: m,n
  integer, intent(in) :: LDA,LDU,LDL
  double precision, intent(in)  :: A(LDA,n)
  double precision, intent(out) :: L(LDL,n), U(LDU,n)

  integer :: i,j
  integer :: iswap, info
  integer,allocatable :: ipiv(:), iorder(:)

scemama

#ifdef __i386
double rdtsc_(void) {
  unsigned long long x;
  __asm__ volatile ("rdtsc" : "=A" (x));
  return (double) x;
}
#elif __amd64
double rdtsc_(void) {
  unsigned long long a, d;
  __asm__ volatile ("rdtsc" : "=a" (a), "=d" (d));

scemama

subroutine create_random_matrix(m,n,A,LDA)
  implicit none
  integer, intent(in) :: m,n
  integer, intent(in) :: LDA
  double precision, intent(out) :: A(LDA,n)

  integer :: i,j
  do j=1,n
   do i=1,m
    call random_number( A(i,j) )