zhulianhua

Object-Oriented Programming in Fortran 2003 Part 1: Code Reusability

Original articles by Mark Leair, PGI Compiler Engineer

This is Part 1 of a series of articles:

• Part 1: Code Reusability
• Part 2: Data Polymorphism

1. Introduction

zhulianhua

from pyzotero import zotero
zot = zotero.Zotero('000000000', 'user', 'AAAAAAAAAAAAA')
print(zot.count_items())

tags_to_keep = ['writting','english']
tags = zot.everything(zot.tags())
tags_to_remove = list(set(tags).difference(tags_to_keep))
while len(tags_to_remove)>0:
    tags = zot.everything(zot.tags())
    tags_to_remove = list(set(tags).difference(tags_to_keep))

zhulianhua

for ($i=0; $i -lt 21; $i++)
{
   $stra = $i*5000
   $filename = 'CFILE_' + $stra.ToString() + '.dat'
   preplot $filename
}

zhulianhua

IMG = imread('xxx.jpg');  % image data
L = im2bw(IMG); % image data to logical data
I = int8(L); % convert to 8 bit integer
dlmwrite('data.dat', I, ' ') % write ascii file, using space(' ') as delimeter
% open data.dat to view it

zhulianhua

// blog : https://zhulianhua.wordpress.com/2018/04/18/c11-variadic-template/
#include <iostream>
using namespace std;
//递归终止函数
void print()
{
   cout << "empty" << endl;
}

//展开函数

zhulianhua

void data2D(int mm_, double* T_, double* qx_,double* qy_,double* xcoord_, double* ycoord_, double* dx_, double* dy_, int NumMeshx_, int NumMeshy_ )
{
	FILE *fp;
	char fname[1000];
	int m1,i,j;  
	int nodes,elements;
	int index[M][N];

	nodes=0;
	elements=0;

zhulianhua

#Generated by `cat $LHOME/OpenFOAM/OpenFOAM-4.1/etc/bashrc`
#LHZHU: Changed based on http://www.archer.ac.uk/documentation/software/openfoam/#4.1 compute
#DESC: Let user program compile on /work filesystem
#----------------------------------*-sh-*--------------------------------------
# =========                 |
# \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
#  \\    /   O peration     |
#   \\  /    A nd           | Copyright (C) 2011-2016 OpenFOAM Foundation
#    \\/     M anipulation  |
#------------------------------------------------------------------------------

zhulianhua

```bash
### OpenMPI
module load compilers/intel/2018_0
./configure --prefix=/home/appLEIWU/MPI/intel/openmpi/2.1.0 CC=/home/appLEIWU/compiler/intel/compilers_and_libraries_2018.0.128/linux/bin/intel64/icc CXX=/home/appLEIWU/compiler/intel/compilers_and_libraries_2018.0.128/linux/bin/intel64/icpc F77=/home/appLEIWU/compiler/intel/compilers_and_libraries_2018.0.128/linux/bin/intel64/ifort FC=/home/appLEIWU/compiler/intel/compilers_and_libraries_2018.0.128/linux/bin/intel64/ifort
make -j 28
sudo make install

### HDF5
CC=/home/appLEIWU/MPI/intel/openmpi/2.1.0/bin/mpicc ./configure --enable-parallel --prefix=/home/appLEIWU/tool/HDF5/intel/openmpi/1.8.5-patch1
make -j 28

zhulianhua

#!/bin/bash --login
#PBS -N test
#PBS -A e283
#PBS -l select=1
#PBS -l walltime=0:20:00
##PBS -m abe
#PBS -M [email protected]

# Switch to current working directory
export PBS_O_WORKDIR=$(readlink -f $PBS_O_WORKDIR)

zhulianhua

# coding: utf-8
# Generate non-uniform discrete velocity using a power law distribution
import numpy as np
    
def nu_dv(lmx, MX, xiMax):
    """
    Generate a non-uniform points with a power law distribution
    
    Parameter
    ---------