FORTRAN to C Code Conversion: SUBROUTINE SS123

#include <math.h>

void SS123(double *STB, double *DD) { double DEXYA, DEXYB, DEXY2; DEXYA = (DD[0] + DD[1]) / 2.0; DEXYB = (DD[0] - DD[1]) / 2.0; DEXY2 = sqrt(DEXYB * DEXYB + DD[2] * DD[2] + 1.0e-80); STB[0] = DEXYA - DEXY2; STB[1] = DEXYA + DEXY2; }