Az ultrakonzervatív IO stratégia lényege, hogy mindenki olvas, de csak a mester ír. Ehhez képzeljünk el egy osztott tárhely nélküli klasztert. Az alaplét a következőképpen készíthetjük el (továbbfejleszthető). Főzés előtt ne felejtsük el telepíteni az openmpi-t a portáról, és a fordítót a -P kapcsolóval meghívni! Egyébként alakul a BiTANG projekt, de a részletek egyelőre még titkosak.

#define MASTER_BEGIN(X)  if( X%myrank .eq. X%iorank ) then
#define MASTER_END       endif
Cf3--&7-9-V13------21-------------------42--------------------64------72
      program hello
        implicit none
        include "mpif.h"
C
        type mc
          integer :: com
          integer :: myrank
          integer :: iorank
          integer :: size
        end type mc
C
        integer  :: ie
        type(mc) :: mcom
C
        call mpi_init( ie )
        mcom%com    = mpi_comm_world
        mcom%iorank = 0
        call mpi_comm_rank( mcom%com, mcom%myrank, ie )
        call mpi_comm_size( mcom%com, mcom%size, ie )
C
        MASTER_BEGIN(mcom)
          write(*,100) mcom%size
        MASTER_END
        write(*,101) mcom%myrank,mcom%size
        call mpi_finalize( ie )
        stop
C
100     format(1X,'master',1X,I3)
101     format(1X,'myrank',1X,I3,1X,'/',I3)
      end program hello