pwl

#include <stdio.h>
#include <stdint.h>

#include <endian.h>

typedef union
{
    __float128  val;
    struct
    {

pwl

cmake_minimum_required(VERSION 2.8)

project( mmpde6_harmonic Fortran )

find_program(ifort "ifort")
# message(${ifort})
set(CMAKE_Fortran_COMPILER ${ifort})

# message(${comp})

pwl

!>
!! @file   inheritance.f90
!! @author Pawel Biernat <[email protected]>
!! @date   Tue Sep 27 13:42:17 2011
!!
!! @brief  this is a @bug of ifort 12.1 Update 6.
!!
!!
!!
module class_a

pwl

#!/bin/bash

function print_n {
cat participants.tex\
| tr '\n' ' '\
| sed -e 's|\\Partic{|\n|g' -e 's|  *| |g' -e 's|\x27|\\\x27|g' -e 's|}  *{|}{|g' \
| awk -F'}{' 'NR > 1 {print $1 ":" $2 ":" $3}'
}

IFS=$'\x0a'

pwl

#!/bin/bash

function print_n {
cat participants.tex\
| tr '\n' ' '\
| sed -e 's|\\Partic{|\n|g' -e 's|  *| |g' -e 's|\x27|\\\x27|g' -e 's|}  *{|}{|g' \
| awk -F'}{' 'NR > 1 {print $1 ":" $2 ":" $3}'
}

IFS=$'\x0a'

pwl

(add-to-list 'load-path "~/.emacs.d/")
(require 'auto-complete-latex)
(setq ac-l-dict-directory "~/.emacs.d/ac-l-dict/")
(add-to-list 'ac-modes 'latex-mode)
(add-hook 'LaTeX-mode-hook 'ac-l-setup)

pwl

#			#
#	Makefile	#
#			#

#finds all .c files and replaces the .c with .o
OBJECTS = $(patsubst %.c,%.o,$(wildcard *.c))
#finds all directories in this folder
DIRS = $(patsubst %/,%,$(wildcard */))

# default: $(OBJECTS)

pwl

[yapdes]
  //  input files and directories (processed recursively)
  /home/pawel/studia/smp/yapdes
  //  directory where tag files are stored
  -refs /home/pawel/Xrefs/yapdes
  //  number of tag files
  -refnum=10
  -I /home/pawel/studia/smp/yapdes/solver
  //  setting for Emacs compile and run
  -set compilefile "cc %s"

pwl

;;;;;;;;;;;;;;;;
;;; LOADPATH ;;;
;;;;;;;;;;;;;;;;

(add-to-list 'load-path "~/.emacs.d/")
(add-to-list 'load-path "~/.emacs.d/xref")
;; (add-to-list 'exec-path "~/.emacs.d/xref")

;;;;;;;;;;;;;;;;;;
;;; APPEARANCE ;;;

pwl

Clear[Grad, Jac, InvJacGrad, ChangeVariable];
Grad[f_, args_] := Module[{IdM},
  IdM = IdentityMatrix[Length[args]];
  Evaluate[Derivative[Sequence @@ #][f]] @@ args & /@ IdM
  ]
Jac[yOf_, args_] := Module[{IdM},
  IdM = IdentityMatrix[Length[args]];
  Transpose[
   Outer[Derivative[Sequence @@ #][#2] @@ args &, IdM, yOf, 1]]
  ]